Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.