Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ksktys
15.09.2021 14:38 •
Информатика
4)вывести на экране : 2,4,6..22. 5) вывести на экране сумму всех чисел от 5 до 20. 6) вычислить произведение чётных чисел от 8 до 18. 7) вывести на экране 10 15 20 65
Показать ответ
Ответ:
vipamalia03
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 оценок)
Популярные вопросы: Информатика
elv2202
30.04.2023 17:31
Створити список з 10 випадкових елементів (від -10 до 10). Знайти суму, кількість та середнє арифметичне окремо додатніх та від ємних елементів списку....
povorovak
18.09.2021 23:26
Впорядкуйте дані числа за зростанням 121(8), 212(6), 2112(3), 1011101(2)....
edynorozhok
30.08.2021 20:58
, 25 ! два шарика равной массы сделаны из одного и того же металла. один из них сплошной, а другой имеет полость. если в наполненный до краев сосуд с водой осторожно положить...
Andriy1208
30.08.2021 20:58
По рисунку докажите что ac=bd,ad=bc...
sogoyantigran
04.01.2020 09:19
когда открыли кровеносную систему, в чем стало проще в медицине? ...
оксаночка1412
13.05.2022 18:34
Человек может увидеть и услышать волшебные вещи там где их просто никто не замечает серебряный пень в лунную ночь звон воздуха небо похоже на старинную морскую карту определить...
Slime28052006
26.02.2022 17:19
Примеры первичных и вторичных двигателей в тех системах,с которыми вы встречаетесь дома и на улице. (с выводом)...
Какосик10
26.03.2020 20:20
На ваш взгляд, какой процесс, события или череда событий в наибольшей степени повлияли на ход европейской . почему вы так считаете ?...
прокопов
23.09.2020 11:01
Вычислить степеть окисления...
pupsic3
11.04.2022 00:39
Поширте подані речення уточнювальними відокремленими членами. ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.