Ответы
Ответ дал:
0
program p1;
var
s, k, a, sr: integer;
begin
s := 0;
k := 0;
a := 10;
repeat
s := s * a;
k := k + 10;
a := a + 1;
until a > 100;
sr := s;
writeln(sr, ' ', k);
end.
var
s, k, a, sr: integer;
begin
s := 0;
k := 0;
a := 10;
repeat
s := s * a;
k := k + 10;
a := a + 1;
until a > 100;
sr := s;
writeln(sr, ' ', k);
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад