Помогите решить. Как это делать не разумею. Program m21; var

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

Program m21;
var i:integer;
begin i:=-10;
while ilt;=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.

Вылейко Егор 2019-05-30 12:04:04

А условия есть?

Славян Райковский 2019-05-30 12:12:44

Нет.

Валек Гиндос 2019-05-30 12:15:28

а что имменно решить?

Sergej Sulbin 2019-05-30 12:21:44

обе

Нелли Елисеес 2019-05-30 12:28:44

здесь без условия решить не получится, не понятно, что делать

Паша Штилюк 2019-05-30 12:34:41

Такое задание, не знаю, что делать.