Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
fooorl
23.08.2021 10:42 •
Информатика
Найти произведение чисел 2, 4 , 6, 8, 10 дано: i=2 i=i+2 s=1 найти: s-? как: s=s*i i меньше 10.
Ответ:
papovasvet
06.06.2020 21:01
uses crt;
var
i,s:integer;
begin
i:=2; s:=1;
while i<=10 do
begin
s:=s*i;
i:=i+2;
end;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mon13
25.06.2022 18:34
Составить программу которая находит количество слагаемых в сумме (1+2+3+4+ ) чтобы сумма оказалась больше 60 . с while ....
Znatokkekgg
25.06.2022 18:34
Сообщение о том,что достали желтый карандаш ,несет 5 бит информации.сколько карандашей в коробке?...
1110200
20.11.2022 22:45
Какое количество обозначает цифра 8 в десятичных числах 6538,8356,87 и 831...
Ilyavazhnov1995
24.11.2020 00:30
Есть код на паскале, который считает выражение и запрещает ввод букв. нужно сделать проверку знаменателя на 0 обоих выражений, и вывести текст в случае нуля pascalabc program...
putnikputen
10.03.2023 06:39
Найдите квадрат наибольшего из двух чисел а и в и вывести на печать признак n=1,если наибольшим является а ,и n=2,если наибольшим является в....
dnaknaf
02.06.2023 11:40
. укажите в бланке ответов номера файлов, которые будут найдены в маске: ?*kol .?*x* 1) shkolkovo.txt 2) koloda.exe 3) akolimbia.xls 4) shokoladka.docx...
доброx5
18.02.2020 23:42
Кто разбирается в Microsoft Access? Нужна Только на русский переведите...
katesmile7
25.07.2020 01:18
Чем отличаются слайдовая презентация от потоковой? Представлением Содержимым (контентом)...
алгебра107
08.05.2023 08:10
ответ, только ответ, физика за ранее! ...
00002017
08.05.2023 08:10
постав слова по алфавіту :Досхочу веселка ягода Граб жінка завод табло зерно віз зовсім листопад єнотик лицар лбидві личко сир зранку ліс магніт одуд плечо торг...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
uses crt;
var
i,s:integer;
begin
i:=2; s:=1;
while i<=10 do
begin
s:=s*i;
i:=i+2;
end;
write(s);
end.