Дата публикации:

Как написать программу на Pascal для определения кратности числа 5

Для написания программы на Pascal, которая будет определять кратность числа 5, нам понадобится следующий код:

1. Объявление переменных:

   var
   number: integer;

2. Ввод числа с клавиатуры:

   writeln('Введите число:');
   readln(number);

3. Проверка кратности числа 5:

   if number mod 5 = 0 then
   writeln('1')
   else
   writeln('0');

4. Завершение программы:

   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.

АПТЕЧКА ДЛЯ ПОЛЬЗОВАТЕЛЕЙ
Чат рулетка 2026: магия случайности в чатах
Чат рулетка с анимешками
Чат с Аней: эмоциональный разговор
Чай и кофе: напитки для души
Эксплуатация шин погрузчика: Советы профессионалов
Фототехника и технологии будущего
Горящий отдых в Индонезии
Информационная Безопасность Бизнеса: Комплексное Решение от Гладиаторов Информационной Безопасности
Казань - окна VEKA с гарантией качества
Комплекты оборудования IP
Конфликт между Mozilla и Microsoft: Обвинения в Саботаже Firefox
Кто смеётся последним
Купи воду
Микроавтобусы и внедорожники от немецких производителей
Популярные конструкторы для детей
Различия между Firefox Beta и Firefox Nightly Release Channel для разработчиков
Сервер для API: Безопасность, Скорость, Изоляция
Совместимость Firefox с музыкальным плейлистом ВКонтакте для фонового отображения
Стратегии российских автокомпаний
Вечный хостинг Vdsina — гарантия доступности сайта