Регистрация
alinaalina060
18.06.2020 22:22
Информатика
Есть ответ 👍

Вычислить 1*2*3*…(n-1)*n ( n вводится с клавиатуры) нужно программу написать

119
360
Посмотреть ответы 3

Ответы на вопрос:

lisa20060701
lisa20060701
4,6(70 оценок)
Pascalabc.net 3.4.2, сборка 1884 от 24.11.2018 внимание! если программа не работает, обновите версию!

begin

  1.to(readinteger).aggregate(biginteger(,b)-> a*b).print

end.

пример

217

2174434113582705391286180135953604532547074113841280120966134941338127751629996882750252826548685075220319214067349484135380654467787270451742678423326570265620157366737288992163349171048688798463267664859364875790185551813894632412980205208366671935782165194373264746274299962531422140746241331327245578338344158437780432087037897823778356347516601795918870609920000000000000000000000000000000000000000000000000000

Auyrey03
Auyrey03
4,4(80 оценок)
#python def f(n): return 1 if n==1 else n*f(n-1) print(f(int(
LordКавайность
LordКавайность
4,4(57 оценок)
Программа может выглядеть такж uses crt; const n=4; type mas=array [1..n] of real; var a: mas;   i: integer;   sum, sred: real; begin   clrscr;   for i: =1 to n do         begin             write('a[',i, ']=');             readln(a[i]);             sum: =sum+a[i];         end;   sred: =sum/n;   writeln ('sred = ', sred: 5: 2);   readln; end.

Популярно: Информатика