Как написать программу на Pascal для определения кратности числа 5
Для написания программы на Pascal, которая будет определять кратность числа 5, нам понадобится следующий код:
- Объявление переменных:
var number: integer;
- Ввод числа с клавиатуры:
writeln('Введите число:'); readln(number);
- Проверка кратности числа 5:
if number mod 5 = 0 then writeln('1') else writeln('0');
- Завершение программы:
readln;
Полный код программы:
program CheckMultipleOfFive;
var
number: integer;
begin
writeln('Введите число:');
readln(number);
if number mod 5 = 0 then
writeln('1')
else
writeln('0');
readln;
end.
После ввода числа программа будет выводить "1", если число кратно 5, и "0", если число не кратно 5.