Уяви часи коли ще не придумали назви для компьютерного обьекта "папка".яку б назву ти запропонувала для цього компьютерного обьекта,зважаючи на його призначення?
235
417
Ответы на вопрос:
var
n : integer;
s : decimal;
function fac(n : integer) : decimal;
begin
result : = 1;
for var i : = 1 to n do result : = result * i;
end;
begin
write('введите n = ');
readln(n);
for var i : = 1 to n do s : = s+fac(i);
writeln('s=', s);
end.
Популярно: Информатика
-
KetrinDark25.10.2022 20:42
-
LyubovR11.12.2022 02:10
-
Танюха141011.08.2022 23:35
-
karinasing09.03.2022 01:35
-
Polinakovalevallll04.07.2022 16:01
-
Плаоцтвтч12.06.2023 22:11
-
annakara049124.09.2022 09:54
-
verarusu0220.02.2020 22:51
-
errreir29.12.2020 01:46
-
Valentin111111114.10.2022 11:41