Как проверить кратность числа 5 на языке Pascal

Узбекские фильмы

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

Как проверить кратность числа 5 на языке Pascal

0461c373

program CheckMultipleOfFive;
var
  number: integer;
begin
  writeln('Введите число: ');
  readln(number);

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

В данной программе мы просим пользователя ввести число, а затем проверяем, кратно ли оно 5. Если число кратно 5, программа выводит "1", если нет - "0".


Uzbeku.ru – узбекские фильмы онлайн, в хорошем качестве бесплатно
Благодаря современным технологиям, в настоящее время, стало возможным смотреть фильмы в режиме реального времени. Для этого были созданы огромные сервисы по хранению видео-фильмов, пример одного из них, это Ютуб. Благодаря таким вот порталам, каждый узбекский фильм, который выходит на «свет», размещается на одном из таких серверов и выкладывается для просмотра в хорошем качестве у нас на сайте.
Различные новинки и фильмы на узбекском языке, комедии, а также фильмы про любовь, Вы можете смотреть онлайн на сайте Uzbeku.ru