Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DarthTyranus
29.05.2023 14:21 •
Информатика
4)вывести на экране : 2,4,6..22. 5) вывести на экране сумму всех чисел от 5 до 20. 6) вычислить произведение чётных чисел от 8 до 18. 7) вывести на экране 10 15 20 65
Показать ответ
Ответ:
sedvl
03.10.2020 11:41
4)
Var i,sum: integer;
Begin
i:=2;
while (i<=22) do
begin
write(i,' ');
i:=i+2
end;
End.
5)
Var i,sum: integer;
Begin
i:=5;
while (i<=20) do
begin
sum:=sum+i;
i:=i+1
end;
Writeln('Сумма чисел от 5 до 20 = ',sum)
End.
6)
Var i,pr: integer;
Begin
i:=8;
pr:=1;
while (i<=18) do
begin
pr:=pr*i;
i:=i+2
end;
Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.
7)
Var i: integer;
Begin
i:=10;
while (i<=65) do
begin
Write(i,' ');
i:=i+5
end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
TrueStOrY133
20.01.2020 04:03
Как можно обратиться к отдельному символу строки WORD?...
staslukutin
01.05.2022 02:49
Придумать какую нибудь интересную азбуку. свою)...
Valentinka079
01.05.2022 02:49
Напишите программу (паскаль): выводится 5 строк, в которых сначала записан порядковый номер строки с точкой, а затем слово. вывести слова в алфавитном порядке. например...
hohotuchka
01.05.2022 02:49
1.разделите текст на абзацы 2.придумайте заголовки для абзацев компьютер — самый необычный инструмент из всех придуманных человеком. он используется не в материальной,...
Акжан1111111
01.05.2022 02:49
Решить в pascal abc. даны два целых числа (а...
Deelay
01.05.2022 02:49
Втеатре работает n актеров. известно, что среди них a – высоких, b – голубоглазых и с – блондинов. для главной роли в новом спектакле режиссеру требуется только один высокий...
Вета111111111111
01.05.2022 02:49
Вдвухмерном массиве в строках хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету (в первой строке – информация об оценках первого...
Kosmos29052004
10.05.2022 15:01
Запишите алгоритм нахождения минимума из трёх целых чисел a, b, c....
elizavetanosova2000
10.05.2022 15:01
Если компьютер одновременно отображает на экране 39 разных цветов то сколько битов данных необходимо на кодирование цвета каждой точки экрана? сколько в этом случае потребуется...
galina85321
11.09.2021 09:29
Вклассе проводился опрос, кто самый лучший друг. обсуждая его итоги, один из учеников сказал: «сережа на первом месте, а денис на втором». другой ученик возразил: «сережа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var i,sum: integer;
Begin
i:=2;
while (i<=22) do
begin
write(i,' ');
i:=i+2
end;
End.
5)
Var i,sum: integer;
Begin
i:=5;
while (i<=20) do
begin
sum:=sum+i;
i:=i+1
end;
Writeln('Сумма чисел от 5 до 20 = ',sum)
End.
6)
Var i,pr: integer;
Begin
i:=8;
pr:=1;
while (i<=18) do
begin
pr:=pr*i;
i:=i+2
end;
Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.
7)
Var i: integer;
Begin
i:=10;
while (i<=65) do
begin
Write(i,' ');
i:=i+5
end;
End.