Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

составить программу для решения задачи:задай число,определите кратно ли оно10

Ответ оставил Гость

program test;
var x: integer;
begin
write(Enter the number: );
readln(x);

if x mod 10 = 0 then
writeln(x, multiple of 10)
else
writeln(x, not a multiple of 10);

readln;
end.