Определите, что делают следующие программы, и дополните команду вывода. var x: integer;...

Question

Определите, что делают следующие программы, и дополните команду вывода. var x: integer; a: boolean; begin write(ꞌВведите x =ꞌ); read(x); a := x mod 10 = 0; write(ꞌЧисло ... — ꞌ,a); end.

Answer 1

Программа определяет кратно число 10 или нет. Если кратно печатает True, если нет печатает False.

Вывод можно дополнить так:

write('Число ',x,' — ',a);