tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задано n целых чисел.найти произведение
Задано n целых чисел.найти произведение четных чисел.( использовать оператор цикла с параметром).
максим1715
3 21.06.2019 13:00
0
Ответы
Дмитртй11
17.07.2020 01:52
Var
m,n,i,a:integer;
begin
writeln('N=');
readln(n);
m:=1;
writeln('vvedite chisla');
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then m:=m*a;
end;
if m=1 then m:=0;
writeln('otvet:',m)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
маринчик18
10.08.2019 17:50
Какое значение имеет приставка кило применительно к байтам ? а)множитель 8(во второй степени) б) множитель 2(в десятой ) в) множитель 10(в третьей ) г)множитель...
gorlatenkoviktoria
09.04.2020 10:17
(ответ пишет тот, кто знает.) Дан массив, содержащий 40 целых чисел в диапазоне от -10000 до 10000. Напишите на одном из языков программирования программу, которая...
Света20177
26.03.2021 18:13
Якого виду є приклад реклами : нафтова компанія оголошує про свою здатність бурити нафтові свердловини без забруднення навколишнього середовища...
жасеке
26.03.2021 18:17
Cамый дешёвый путь В каждой клетке прямоугольной таблицы N×M записано некоторое число. Изначально игрок находится в левой верхней клетке. За один ход ему разрешается...
danilsalnikov
21.07.2019 22:50
Заполните таблицу вычислив количество цветов в палитре n при известной глубине i...
eduardpiterskiy
20.06.2019 19:30
В7 банок разложили поровну 28кг мëда. сколько килограммов мëда в 5 таких банках?...
ЯумамыМолодец666
20.06.2019 19:30
Что получится в результате реакции? bacl2+сасо3...
Ольгаok
20.06.2019 19:30
Сказ на беларуском языке со словом абелиск...
Andrianovnd
20.06.2019 19:30
Просклоняйте существительные выделенные окончания консерватория , созвездия , гербарий , турция , виталий , венгрия....
PotyLive
20.06.2019 19:30
Ты с друзьями,гуляя по вечером по парку,повстречал бомжа.твои друзья начали над ним громко смеятся.тебе не нравится,как ведут себя друзья.найди,придумай аргументы,чтобы...
Популярные вопросы
Які судини входять до серцево-судинної системи?...
1
Ссуффиксов -чик и -щик образуйте новые слова от данных: бубен,...
3
1) что привлекало итальянцев в фашистской идеологии? 2) даты...
2
Унас во дворе есть старый пень синтаксический разбор...
1
Саша нашёл 35 грибов ,а аня - 4/5 от количества сашиных грибов.сколько...
1
Две бригады, работая вместе, заготовили 1320 т силоса. ежедневно...
1
2)сумма произведения чисел 21 и 8 и частного чисел 305 и 61....
2
Учитель музыки попросил закончить ряд: чудо, море, оригами, дрофа,...
3
Найди частное и остаток. 673/4 ..489/9..544/...
3
Существительное с нулевым окончанием в р.п мн.ч. а)офицеры в)болгары...
1
m,n,i,a:integer;
begin
writeln('N=');
readln(n);
m:=1;
writeln('vvedite chisla');
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then m:=m*a;
end;
if m=1 then m:=0;
writeln('otvet:',m)
end.