Информатика, опубликовано 09.01.2019 16:01

Составить программу которая вычисляет произведение четных чисел от 1 до 50

Ответы

Ответ оставил: Гость

//pascalabc.net //версия 3.3, сборка 1611 begin write(range(1,50).where(x-> x.iseven).aggregate(real(,y)-> (x*; end.

Ответ оставил: Гость

Program Ok;
var a,i,n,proiz:integer;
begin
readln(N);
proiz:=1;
for i:=1 to n do
begin
read(a);
if(a<0) then
proiz:=proiz*a;
end;
write(proiz);
end.

Ответ оставил: Гость

1Freeware или 2 нет верного ответа

Ответ оставил: Гость

После 3 дней должны взять деньги( зависит от абонентской платы) и у тебя будет все работать

Другие вопросы по информатике

Информатика, опубликовано 09.01.2019 16:01

Роман написал программу на языке Pascal, фрагмент которой приведен ниже. for i:=0 to 99 do num[i+1] :=i+1; k:=0; i:=1; while k

Информатика, опубликовано 09.01.2019 16:01

Var k, m, month: integer; Dat: array[1.,12] of integer; begin Dat[1] := 2; Dat[2] := 8; Dat[3] := 6; Dat[4] := 3; Dat[5] : =...

Информатика, опубликовано 09.01.2019 16:01

На чем базировалась первая идея упаковки информации без потерь? 1)внесение искажений нежелательно или вообще недопустимо; 2)в обычном тексте час...

Информатика, опубликовано 09.01.2019 16:01

Дан массив из 20 элементов. Заполнить его случайными числами из интервала [-15,40] 1. Вывести полученный массив на экран в строчку через запятую....

✅ Ответов: 3 на вопрос по информатике: Составить программу которая вычисляет произведение четных чисел от 1 до 50... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.

Вопрос от: sallyllyi

Больше вопросов: Информатика Другие вопросы