Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
2006otvet
23.03.2023 18:31 •
Информатика
Составьте программу для вычисления суммы: 3+6++27
Ответ:
Udjfjwojzksnsnsnslkm
10.10.2020 05:08
var s:integer;
begin
for i:=3 to 27 do begin
if i mod 3=0 then s=s+i;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NeonMax
13.06.2020 11:56
Var s,k: integer; begin s : = 1; for k : = 0 to 4 do s : = s * 3; writeln(s); end....
btrawee34
03.05.2021 21:25
1.Определите значение переменной а после выполнения алгоритма: а:= 4 b:= 2 b:= a/2*b а:= 2*a + 3*b значение переменной а. В ответе укажите одно целое число...
FeagTV
08.06.2023 19:26
4. Набор команд и инструкций, написанный на языке, понятном компьютеру,называется а) инструкция; б) алгоритм в) программаГ) код...
stepankachan
12.10.2020 13:20
4. Начертите окружность радиуса 3см. с центром О.Проведите луч с началом в точке О и отметьте на нем точку E, удаленную от точки О на 7см. Проведите окружность с центром...
radkov02p08713
09.05.2022 19:34
2. Заполните пропуски словами: «Если ... является основным объектом в изучении предмета информатики, то компьютеры считаются главным ... в изученииданного предмета»а)...
yevdokimenkoal
12.06.2020 20:00
Используя команды исполнителя Черепашка, напишите алгоритм рисования конвертика ...
dariasit
04.02.2021 02:24
Как правильно задать координаты точки в исполнителе чертёжник?...
янакуницкая2017
01.01.2023 15:52
РЕСУРСЫ ЛОКАЛЬНОЙ СЕТИ ЭТО ДОКУМЕНТЫ ПРОГРАММЫ И УСТРОЙСТВА ИЛИ ТОЛЬКО ПЕРЕФИРИЙНЫЕ УСТРОЙСТВА...
юля15102
28.06.2021 03:46
3.Для какого из приведённых чисел истинно высказывание: НE (число 50) и (число чётное)? 1) 34 2) 47 3) 76 4) 101...
Tashkentskiy
30.09.2021 19:03
Кто может , за спам жалуюсь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var s:integer;
begin
for i:=3 to 27 do begin
if i mod 3=0 then s=s+i;
end;
writeln(s);
end.