Question

Помогите пожалуйста с информатикой​

Answer 1

Ответ:

Я сделал проще: написал программу посмотрел что выдаст.

2)

Var b,n:integer;

begin

B:=0;

N:=1;

Repeat

B:=b+n;

N:=n+2;

Until n>10;

Write(b);

end.

Выдало 25

3)

program HelloWorld;

Var a,k:integer;

begin

A:=0;

K:=1;

While k<4 do begin

A:=(a+k)*k;

K:=k+1;

End;

Write(a);

end.

Вывело 27