Составьте программу, определяющую, является ли данное предложение вопросительным.

Question

Информатика

Варварий

10 февраля, 11:55

Составьте программу, определяющую, является ли данное предложение вопросительным.

+5

Ответы (1)

Знаете ответ?

Федосья · Answer 1

var

s: string;

i: integer;

q: boolean;

begin

readln (s) ;

for i : = 1 to length (s) do

if (s[i] = '?') then q : = true;

if (q) then writeln ('Вопросительное')

else writeln ('Не вопросительное') ;

end.