Предмет: Информатика,
автор: zverevyuriy
Нужна помощь с паскалем
Приложения:
Ответы
Автор ответа:
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.
Похожие вопросы