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);