Предмет: Информатика, автор: daniillashko

СРОЧНО СРОЧНО СРОЧНО ​

Приложения:

Ответы

Автор ответа: valgrisa
0

Ответ:

program test;

var s: string;

i: integer;

begin

readln(s);

if s[1]=s[pos(' ',s)+1] then writeln('а) да')

else writeln('а) нет');

if s[pos(' ',s)-1]=s[pos(' ',s)+1] then write('б) да')

else write('б) нет')

end.

Похожие вопросы
Предмет: Английский язык, автор: fomichev12321
Предмет: Русский язык, автор: Инга131
Предмет: Русский язык, автор: Adliyashka
Предмет: Математика, автор: Аноним