Вывести последовательность чисел N...35,25,15
Вывести последовательность чисел N...35,25,15
Гость
Ответ(ы) на вопрос:
ГостьVar N : Integer;
Begin
Readln(N);
While N>0 do
Begin
Write(N,' ');
N:=N-10;
end;
Writeln;
end.
Не нашли ответ?
Похожие вопросы