Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
shitova20023p02gai
07.02.2023 07:04 •
Информатика
Нужно! делать нужно в паскале: составьте 3 программы, используя for, while и repeat: распечатать последовательность чисел 3, 6, 9, 12, и найти их сумму
Показать ответ
Ответ:
ангел769
03.10.2020 08:26
//Pascal
var
a, s: integer;
i: integer;
begin
//цикл for
s := 0;
for i := 0 to 20 div 3 do
s := s + i*3;
writeln(s);
//цикл while
i := 3;
s := 0;
while i <= 20 do
begin
s := s + i;
i := i + 3;
end;
writeln(s);
//цикл repeat
i := 3;
s := 0;
repeat
s := s + i;
i := i + 3;
until i > 20;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ladykrisMi
12.04.2022 21:32
Упражнение 1. Форматирование символов Следующий текст отформатировать в соответствии с его содержанием: шрифт Arial № 14 полужирный подчеркнутый наклонный (курсив) шрифт...
ЕваЛюцифер
12.11.2021 18:35
Напишите программу, которая выводит прямоугольник, по периметру состоящий из звездочек (*). (ТОЛЬКО в PYTHON) Примечание. Высота и ширина прямоугольника равны 4 и 17 звёздочкам...
DragonSeeS
02.08.2021 23:44
Перевести из 10-ой системы счисления (с.с.) число 2310 (в 2-ую, 8-ую, 16-ую). Перевести из 2-ой С.С. числа 10112, 11110112, 100111012 в 10-ую. Перевести дробное число 0,98...
Алгебра111111111
29.01.2020 02:14
Python. Составить программу, определяющую принадлежит ли точка с координатами (x; y) заштрихованной части плоскости. Координаты точки ввести с клавиатуры...
mihailgrand
27.07.2022 22:29
What are the names of the instances in the following code? Please put one instance per blank space and enter them in the order that the computer would read them. import...
knepsuhell
01.01.2020 13:46
Расшифровать текст пользуясь методом перестановки...
Violetta291
12.05.2020 03:41
Урок по информатике составьте таблицу примерами на все органы чувств...
maha80
24.01.2022 18:22
На заводе по производству резиновых уточек работает фасовочный кран. Он берет готовую утку с конвейера и кладет её в ящик того же цвета, что и утка. Кран выполняет следующие...
danikvorona
05.02.2021 11:44
В классе 30 учеников. Каждый из них должен посещать хотя бы один кружок: математику, русский язык, физику, информатику. Физику и русский язык посещают 11 учеников. Математику...
Severelinka
20.01.2023 05:37
Мистеру Фоксу поручено сделать 100 копий уникального документа. В его распоряжении есть три копировальных аппарата разной производительности. Первый выдает копии с интервалом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, s: integer;
i: integer;
begin
//цикл for
s := 0;
for i := 0 to 20 div 3 do
s := s + i*3;
writeln(s);
//цикл while
i := 3;
s := 0;
while i <= 20 do
begin
s := s + i;
i := i + 3;
end;
writeln(s);
//цикл repeat
i := 3;
s := 0;
repeat
s := s + i;
i := i + 3;
until i > 20;
writeln(s);
end.