Информатика

Ненила

15 сентября, 20:23

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

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.