Ответы
Ответ дал:
0
Ответ:
Объяснение:
Pascal:
var a,b:integer;
begin
a:=5;
b:=0;
while a<>1 do
begin
a:=a-1;
b:=b+a
end;
writeln(b)
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад