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

Помогите пожалуйста срочно
сделать программу в паскале

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

//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>. do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)=
if (pos(O,s1)<>0) and (pos(s2,s1)<>0) and (pos(k,s1)<>0) then writeln(Yes) else writeln(No);
end.