logo
Войти Регистрация Спроси ai-bota


4213566
27.05.2020 09:59

Составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2**10^2)

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Прунчик1056
Прунчик1056
06.11.2020 06:38
Установите соответствие. лазерные принтеры являются устройствами вывода информации камчатка является полуостровом коллизией находится в риме варианты ответов отношение между двумя...
Malina235
Malina235
06.11.2020 06:38
Дана двумерная матрица n на m.найти максимально отрицательное и разместить его в центре матрицы. алгоритм и программа...
помогите1184
помогите1184
06.11.2020 06:38
Напишите программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями...
Diana22855
Diana22855
24.09.2020 16:10
Задача. Бобру Джону нужно ехать из А в Е через В, С и D. Путешествуя из одного города в другой, он может сесть на поезд. Время поездки на поезда изображено на рисунке ниже. Кроме...
ника2760
ника2760
19.05.2023 14:44
Сколько ячеек содержит выделенная область В5:Е10? ​...
sashakameka
sashakameka
19.01.2020 02:44
Как перевести в двоичную систему счисления следующие числа 689;75;94​...
Puma20050412
Puma20050412
23.12.2022 13:26
Як створити сторінки сайту різного рівня?...
Marshall123
Marshall123
22.12.2021 00:12
Дан двумерный массив 5*5.найти число строк матрицы, сумма элементов которой отрицательна?...
eremenko6kirov
eremenko6kirov
22.12.2021 00:12
Запишите следующие числа в нормальной форме с нормализованной мантиссой - правильной дробью, имеющей после запятой цифру, отличную отнуля: а) 217,934 б) 75321 в) 0,00101 все в десятичной...
Roland227
Roland227
22.12.2021 00:12
Какое из перечисленных устройств не относится к внешним запоминающим устройствам: винчестер озу дискета сд-ром...
Ответ:
VitaKoroleva851
05.07.2020 06:25
Pascal

Var
i: byte;
rez: unt64;

begin
for i:=1 to 10 do
 rez:=rez*i*i;

write(rez);
end.

Если не ошибся нигде)
0,0(0 оценок)
Ответ:
Меньон258
05.07.2020 06:25
Var i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота