Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
k1llerospace
06.02.2020 04:15 •
Информатика
Составить программу вычисления суммы 3+6+9++33 на паскале
Показать ответ
Ответ:
MrDog2005
27.06.2020 10:52
Uses crt;
var a,b,c:integer;
begin
a:=3;
c:=3;
b:=0;
while b<>33 do
begin
a:=a+b;
b:=b+c;
end;
writeln(a);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
danilchirkov0
20.06.2022 05:32
Доказать равносильность...
ismailov34667
13.10.2020 16:04
Выберите допустимые имена файлов...
leratsvetik
27.08.2022 03:00
Батырхан нарисовал изображения цветов. Данные изображения хранятся в оперативной памяти. Изображение одного цветка требует 10 Кб памяти. Размер каждой ячейки ОЗУ равен 10 КБ....
рипрмот
19.04.2021 03:27
Формувач комбінації імпульсів заданої довжини...
ga77
01.07.2020 01:43
Составить программу,которая вычисляет 3 степень числа,если это число больше 10,но меньше 20...
elizaveta4256
01.06.2022 06:29
8. укажіть відповідність між назвами економічних районів та галузями їх сільськогосподарської спеціалізації : 1) придніпровський. а) вирощування зернових, соняшнику, ефірноолійних,...
khamidova3053
11.05.2020 00:08
По языку надо -о- пишется ответ: р…сток з…рница р…внина пром…кашка заг…релый...
Mashka168363838
11.08.2021 15:05
Составить предложение со словосочетанием человек на охоте...
ladalis22
26.04.2022 16:59
Конечными результатами внешнец политики хана таукеля являлись...
sashaberts
21.02.2022 17:58
Длина нихромовой проволоки в 2.5 раза меньшедлины проволоки из свинцафото рядом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:integer;
begin
a:=3;
c:=3;
b:=0;
while b<>33 do
begin
a:=a+b;
b:=b+c;
end;
writeln(a);
readln
end.