Вычислить 1*2*3*…(n-1)*n ( n вводится с клавиатуры) нужно программу написать
119
360
Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1884 от 24.11.2018 внимание! если программа не работает, обновите версию!
begin
1.to(readinteger).aggregate(biginteger(,b)-> a*b).print
end.
пример217
2174434113582705391286180135953604532547074113841280120966134941338127751629996882750252826548685075220319214067349484135380654467787270451742678423326570265620157366737288992163349171048688798463267664859364875790185551813894632412980205208366671935782165194373264746274299962531422140746241331327245578338344158437780432087037897823778356347516601795918870609920000000000000000000000000000000000000000000000000000
Программа может выглядеть такж 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.
Популярно: Информатика
-
Тимуркупцов12313.04.2023 02:44
-
Horosh254524.04.2023 16:00
-
chcuvivhcyxu08.09.2020 09:04
-
ПиЗоНтИк14.02.2023 10:28
-
Maria12345678910126.01.2020 02:42
-
черныйЗайка10.05.2023 09:53
-
томка11204.10.2022 02:13
-
bagzina10.08.2020 20:54
-
наташа97902.10.2021 13:42
-
Соня12110328.05.2023 23:36