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

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

Question

Евгений

24 января, 19:39

+3

Ответы (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