Паскаль. вводится целое число x (50 < = x < = 250), кратное пяти. выводится убывающая последовательность строк с числами формата: x x - 5 x - 10 50 то есть, нужно от данного числа составить последовательность с "интервалом" в 5. нельзя использовать массивы и цикл while. только for. заранее !

сонечка3332002 сонечка3332002    1   25.08.2019 03:40    6

Ответы
loon1488 loon1488  05.10.2020 17:59
Var
A:byte;
Begin
Write('Введите число, кратное 5 (50 <= Число <= 250): ');
ReadLn(A);
For A:= A downto 50 do
    if A mod 5 = 0 then WriteLn(A);

End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика