Ответы
Ответ дал:
0
//Для Pascal ABC.Net
Var k:array[1..12] of longint;i:byte;pr,pr1:int64;
Begin
for i:=1 to 12 do
read(a[i]); //Читаем каждый из элементов массива
pr:=1;
pr1:=1;
for i:=1 to 6 do
pr*=a[i]; //Перемножаем каждый из 6 элементов массива
for i:=7 to 12 do
pr1*=a[i]; //Перемножаем каждый из 6 последних элементов массива
writeln(pr*pr1);
End.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?
Var k:array[1..12] of longint;i:byte;pr,pr1:int64;
Begin
for i:=1 to 12 do
read(a[i]); //Читаем каждый из элементов массива
pr:=1;
pr1:=1;
for i:=1 to 6 do
pr*=a[i]; //Перемножаем каждый из 6 элементов массива
for i:=7 to 12 do
pr1*=a[i]; //Перемножаем каждый из 6 последних элементов массива
writeln(pr*pr1);
End.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?
Ответ дал:
0
спасибо
Ответ дал:
0
В простом Pascal ABC надо будет заменить longint на integer и поменять pr*=a[i]; на pr:=pr*a[i];, затем pr1*=a[i]; на pr1:=pr1*a[i];
Ответ дал:
0
ок
Ответ дал:
0
не работает((
Ответ дал:
0
Что отвечает?
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад