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

1

Ответы и объяснения

2013-01-20T19:10:38+04:00

Pascal

 

var n:longint;

begin

read(n);

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

end.