Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Алгоритм на языке Pascal.

var
a:integer;
begin
write(Введите двузначное число: );
readln(a);
if a mod 5 = 0
  then writeln(Кратны)
  else writeln(Не кратны);
end.

Принцип действия:

На ввод подается двузначное число, после чего находится его остаток при деления на 5 (a mod 5 ) , если он равен 0, то число кратно 5 (как все число, так и разряд едениц),  в противном случае - не кратно.