tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу в среде
Напишите программу в среде pascal abc,которая в последовательности чисел от 5 до 30 находит произведение чётных.
sobkevichbozhep08t40
3 03.06.2019 15:30
2
Ответы
лололололлоло97
03.07.2020 22:15
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.
ПОКАЗАТЬ ОТВЕТЫ
bibok3
03.07.2020 22:15
Это очень сложно, не могу
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MATVEI235
06.05.2020 11:19
Определите значения переменных s и i после выполнения фрагмента программы: s:=0; i:=5; while i 0 do begin s:=s+i; i:=i-l; end;...
vladishe1
06.05.2020 11:19
Рассмотрите изображение. - Составьте алгоритм действий для создания данного изображения. - определяет инструменты; - устанавливает порядок действия для создания изображения....
alskyuq
03.04.2019 19:28
Сор информатика 8 класс в приложении....
Amirzhan143
15.12.2020 22:42
8 класс информатика (сделать в виде таблицы) Задача 1На уроке математики одна из девочек получила оценку «2». Когда классный руководитель спросил у девочек, кто получил...
Sterl
06.05.2020 04:15
По тексту программы определите значение переменной А. a)n:=77; A:=2; while n mod A 0 do A:=A+1; writeln(A): b)A:=1; for k:=1 to 5 do A:=A*k; writeln(A): c)A:=2; n:=A;...
марго398
12.06.2019 19:10
3,4 диметил 3 этил пентан 3 метил 3 этил 4 пропил пентан...
GOLUBOVICH0400
12.06.2019 19:10
Вчём состоит замысел повести о разорении рязани батыем?...
HaskyZ0nG
12.06.2019 19:10
Jack (to phone) me last night. he is on holiday in germany. he (to have) a nice time. вставьте где скобки правильное время глагола...
VolandDrein
12.06.2019 19:10
1) камень брошенный вертикально вверх с поверхности земли,упал обратно на землю через 6 с. сопротивление воздуха мало. начальная скорость камня равна? 2) с какой...
Natali8881
12.06.2019 19:10
Велосипедист проехал расстояние между двумя населенными пунктами равное 63 км за 1 ч 15 мин . определите среднюю скорость велосипедиста ....
Популярные вопросы
Две прямые касаются окружности с центром О в точках А и В и пересекаются...
3
2. Look at the postcard again and choose the best variant in the...
3
Выберите правильный ответ. Какие экосистемы относят к естественным?...
3
3. Из центра окружности О к хорде АВ, равной 30 см, проведен перпендикуляр...
2
сор по истории Казахстана...
3
Вычеслие плошадь треугольика когда ве стороны по 5 см и одна 8....
2
He ___ to me when he was younger...
2
какие самые большие экологические проблемы существуют в нашей...
1
Солнечная система Сделать конспект (рисунки, определения, понятия,...
2
Найти в интернете или решите вручную...
1
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.