Дано двузначное число, определить, кратны ли единицы этого числа 5

Question

Информатика

Агриппина

17 мая, 18:58

Дано двузначное число, определить, кратны ли единицы этого числа 5

+3

Ответы (1)

Знаете ответ на вопрос?

Зинич · Answer 1

var

a:integer;

begin

write ('Введите двузначное число: ') ;

readln (a) ;

if a mod 5 = 0

then writeln ('Кратны')

else writeln ('Не кратны') ;

end.