Задача 2 урок 10.1

Primary tabs

Red_rol's picture
Submitted by Red_rol on Wed, 01/12/2022 - 19:12

Forums:

Задача 2 урок 10.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a>1) then
     begin
          for i:=a downto 1 do
          if ((i mod 5)=0) then
             write(i,' ')
             end
  else
      writeln('oshibka! vashe chislo ne > 1.');
readln();
end.
вывод консоли
vvedite celoe chislo
25
25 20 15 10 5
  • Log in to post comments
  • 1165 reads
vedro-compota's picture

vedro-compota

Wed, 01/12/2022 - 20:19

форматирование

_____________
матфак вгу и остальная классика =)

Red_rol's picture

Red_rol

Wed, 01/12/2022 - 20:43 

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 1) then
     for i:=a downto 1 do
     begin
         if((i mod 5)=0)then
         write(i,' ')
     end
  else
         writeln('oshibka! vashe chislo ne > 1.');
  readln();
end.