Question

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

Answer 1

Begin
var
     x,a:integer;
write('Напишите число: ');
readln(x);
writeln(x);
a:= 10 div x;
if (a>=10) then 
writeln('Число кратное десяти')
else
write('Число не кратно десяти');
end.