Помогите решить. Как это делать не понимаю.

Program m21;

var i:integer;

begin i:=-10;

while i<=20 do

begin write (i' ') ;

i:i+5;

end;

end.

Program m22;

var a, b, c, p, h : integer;

begin

writeln ('Введите A, B, h') ;

readln (a, b, h) ;

p: = 1;

c: = a;

while c,=b do

begin

p: = p*c;

c: = c+h;

end;

wrineln (p) ;

end.

Question

Цвета

26 января, 22:57

+3

Ответы (1)

Знаете ответ на вопрос?

Тамарка · Answer 1

Program m21;

var i:integer;

begin i:=-10;

while i<=20 do

begin write (i,' ') ;

i:=i+5;

end;

end.