Question

Помогите решить. Как это делать не понимаю. 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.

Answer 1

Program m21; 
var i:integer;
begin i:=-10;
while i<=20 do 
begin write (i,' ');
i:=i+5;
end;
end.

Answer 2

Конечно, я помогу разобраться с обоими программами.

Программа m21 выводит числа от -10 до 20 с шагом 5:

pascalCopy code
Program m21;
var i: integer;
begin
  i := -10;
  while i <= 20 do
  begin
    write(i, ' ');
    i := i + 5;
  end;
end.

Она начинает с i = -10 и выводит значение i, затем увеличивает i на 5 и повторяет этот процесс до тех пор, пока i не станет больше 20. Таким образом, вывод будет следующим: -10 -5 0 5 10 15 20.

Программа m22 вычисляет произведение чисел, начиная с a, заканчивая b, с шагом h:

pascalCopy code
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;
  writeln(p);
end.

В программе пользователь должен ввести значения a, b и h. Затем программа начинает с c = a и вычисляет произведение, умножая каждое следующее число на предыдущее, пока c не станет больше b. Результат будет выведен на экран.

Например, если ввести a = 2, b = 6 и h = 2, программа вычислит 2 * 4 * 6 = 48 и выведет это значение на экран.