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

Pascal

 

var n:longint;

begin

read(n);

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

end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку