tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль абс вычислить :
Паскаль абс вычислить : 1*3*5**23*25
OlegBasov
3 30.07.2019 09:10
0
Ответы
pidgenatar
27.09.2020 21:11
//PascalABC.NET 3.1 сборка 1239
begin
PrintLN(Range(1, 25, 2).Aggregate(1.0, (s, x)-> s * x));
end.
ответ
7905853580625
ПОКАЗАТЬ ОТВЕТЫ
ойооы
27.09.2020 21:11
//Pascal ABC.NET v3.1 сборка 1219
Var
i,a:int64;
begin
a:=1;
for i:=1 to 25 do
a:=a*i;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
knarik88
20.01.2021 17:38
P.txt с 4) В терминологии сетей TCP/P маской сети называют двоичное число, которое тера равен показывает, какая часть IP-адреса узла сети относится к адресу сети, а какая -...
freedomman87
20.01.2021 17:38
Төменде берілген программа кодтарын жазуда жіберілген қателерді тап ...
alinatima32
20.01.2021 17:38
Як часто збирається експертна група з питань рухомого зображення MPEG...
Viktoriya3124
25.05.2019 09:00
Придумайте примеры отношений является элементом множества , входит в состав , предшествует ,и представьте их с схем...
Vandannc
25.05.2019 09:00
Дано целое положительное четырехзначное число. напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр...
rafik91
25.05.2019 09:00
Составить программу, которая строит ряд из n знаков * , m знаков ! и n знаков * если n...
KatyshaMarina
25.05.2019 09:00
1. какой результат отобразится на экране после выполнения фрагмента программы на pascal? begin k: =4; writeln (‘данные’); a: =k+10; k: =k+a; writeln (a, k, k*k, a*a); writeln...
wsmol
25.05.2019 09:00
Разложите число 117 по троичной системе исчисления....
lana030935
25.05.2019 09:00
Считая, что каждый символ кодируется 1 -м байтом, оцените информационный объём этой фразы: не ошибается тот, кто ничего не делает, хотя это и есть его основная ошибка....
natacha18
25.05.2019 09:00
Рассчитайте время звучания моноаудиофайла,если при 16-битном кодировании и частоте дискретизации 32кгц его объем равен 700 кбайт...
Популярные вопросы
Чему будет равна сумма первых 10 членов арифметической прогрессии,если а4=16,и...
1
Распределительный диктант - Распределить по трем колонкам словосочетания...
3
1. Найдите значения произведений: 2 627 8221)в; 2) 213)4)5)8 535 12 3732...
2
Кем хотел стать ,, маленький папа, побывав на заводе с дедушкой...
1
Задание 2. От данных прилагательных образуйте простую и составную формы сравнительной...
3
Основным результатом Восстания под провительством батыра сырыма...
2
Naiti окы. Такырьut oil Акорда-Қазақстан Республикасы Президентінің резиденциясы.Казакы...
3
Прочитайте слова, правильно вимовляючи приголосні звуки. Запишіть їх фонетичною...
3
Раздели предложенные вещества на органические и неорганические 1. Белок2....
2
Напишите формулу линейной функции, график которой параллелен графику функции...
1
begin
PrintLN(Range(1, 25, 2).Aggregate(1.0, (s, x)-> s * x));
end.
ответ
7905853580625
Var
i,a:int64;
begin
a:=1;
for i:=1 to 25 do
a:=a*i;
writeln(a);
end.