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

ари53 ари53    2   21.08.2019 03:00    5

Ответы
Bellatrisa Bellatrisa  05.10.2020 08:38
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика