Ответы
Ответ дал:
0
Ответ:
Я сделал проще: написал программу посмотрел что выдаст.
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
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад