Задача 2 Урок 10
Primary tabs
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
program lesson10_2; var a, i : integer; begin writeln('enter number a > 1'); readln(a); if a > 1 then begin for i := a downto 1 do if i mod 5 = 0 then write(i, ' ') end else writeln('error'); readln(); end.
- Log in to post comments
- 1043 reads
vedro-compota
Thu, 07/22/2021 - 20:02
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)