Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы