Регистрация
кузя215
23.11.2021 17:02
Информатика
Есть ответ 👍

Запишите выражение на языке программирования Pascal.

285
500
Посмотреть ответы 1

Ответы на вопрос:

spinny9tim
spinny9tim
4,6(51 оценок)

ответ:

program p;

var a,s: integer;

begin

readln(a, s);

while s < > 0 do begin

s : = s mod 10;

if (s = a) then begin

writeln('yes');

s : =0;

end

else writeln('no');

if ( a < 10) then writeln('no');

end;

end.

объяснение:

Популярно: Информатика