Вывести последовательность чисел N...35,25,15
Var N : Integer;
Begin
Readln(N);
While N>0 do
Begin
Write(N, );
N:=N-10;
end;
Writeln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
