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

Question

Информатика

Перфилий

11 июня, 04:43

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

+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.