Решить задачу срочно пожалуйст

0 голосов
18 просмотров

Решить задачу срочно пожалуйст


image

Информатика (32 баллов) | 18 просмотров
Дан 1 ответ
0 голосов

Program ryazantsev;
var str1, str2: string;
begin
readln(str1);
readln(str2);
if Pos('a', str1)=0 then writeln(str1);
if Pos('a', str2)=0 then writeln(str2);
end.

(106 баллов)