Дано двузначное число, определить, кратны ли единицы этого числа 5
var
a:integer;
begin
write(Введите двузначное число: );
readln(a);
if a mod 5 = 0
then writeln(Кратны)
else writeln(Не кратны);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
