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


orlovs2017
01.10.2020 15:21

Напишите программу на паскале.вычислите произведение чисел от 1 до 100 кратных 3

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
liudmilka19091982
liudmilka19091982
25.11.2021 07:58
Фільтрація у базах даних це...
shivaco
shivaco
30.07.2021 07:56
МНОГО ИНФОРМАТИКА 10 класс!Определите результат работы функции при входном значении, равном 123456:function qq(x: integer):integer;var i, s: integer;begin s:=0; for i:=1 to 3 do begin...
2002КетринПирс2002
2002КетринПирс2002
17.03.2023 16:22
Деректер формптын озгертудын екы тасылы?​...
kiryushadautovp00tv7
kiryushadautovp00tv7
06.04.2023 22:16
логический оператор or это а) логиче. деление б) логиче. сложение в) логиче. умножение г) логиче. отрицание ​...
Манюня589
Манюня589
17.04.2020 16:26
Используя граф, постройте весовую таблицу...
Staslu
Staslu
27.06.2020 21:44
3. Задан массив X[N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, которые делятся на 5? Вводите ответ без пробелов. S = 0 for...
RedEdro
RedEdro
19.02.2023 11:08
Подготовить сообщение по теме Робототехника . Сообщение оформить в виде реферата, с соблюдением всех правил оформления. Положительной оценкой будут оцениваться рефераты, в которых...
arsenpogosyan
arsenpogosyan
02.09.2020 12:09
Каким оружием в 9 Шерлок Холмс в рассказе oppose Артура Конан дойла​...
reded5610
reded5610
02.09.2020 12:09
Визначте опір ділянки, якщо опір кожного елементастановить 4 Ом.​...
duminalarisa
duminalarisa
02.09.2020 12:09
нужно 2строницу сделать надо...
Ответ:
PatrickKKK
15.07.2020 17:48
Var
i, p:longint;
begin
p:=1;
for i:=1 to 100 do
if (i mod 3)=0 then p:=p*i;
writeln('resuktat ',p)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота