Question

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

Answer 1

Pascal

 

var n:longint;

begin

read(n);

if n mod 10=0 then writeln('kratno') else writeln('net');

end.