Напечатать целые числа - 20, - 15, - 10 ... 0,5,10,15,20

В Pascal с помощью операторов For или While

Question

Ардальон

15 мая, 02:02

+1

Ответы (1)

Знаете ответ?

Гремислав · Answer 1

Program cikl;

uses crt;

var x, y:integer;

begin

write ('веди нужное число') ;

read (x) ;

for y:=-25 to x do

write (' ', y) ;

inc (y) ;

end.

Напечатать целые числа - 20, - 15, - 10 ... 0,5,10,15,20В Pascal с помощью операторов For или While