Ответы
Ответ дал:
0
Ответ:
===== PascalABC.NET =====
var
n, a: integer;
begin
n := 1;
a := 1;
while n<11 do
begin
a := a * n;
writeln('a ',n,' = ',a);
inc(n);
end;
end.
Объяснение:
Приложения:
![](https://st.uroker.com/files/e79/e796bb7b07da8296475847a85a3efffa.png)
BobbyFresnel:
Выполнялось может и в PascalABC.NET, а по языку - Free Pascal
var (n, a) := (1, 1);
while n < 11 do
begin
a *= n;
Println('a', n, ' =', a);
n += 1
end
end.
Вас заинтересует
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад