Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
5five3353
31.08.2022 15:46 •
Информатика
Составить программу нахождения суммы четных чисел на на промежутке от 26 до 88
Ответ:
Huysosimoy
11.10.2020 16:38
var a,s:integer;
begin
a:=26;
while a<=88 do
begin
if a mod 2 = 0 then s:=s+a;
a:=a+1
end;
writeln (s)
end
0,0
(0 оценок)
Популярные вопросы: Информатика
lizafedkovich
23.01.2023 14:08
Для каждого рисунка Запишите программу для робота...
art1610
23.03.2023 19:52
На языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного массива...
artik5990765
23.03.2023 19:52
Дан массив а(к).из элементов массива а сформировать массив в таким образом: сначала поместить все отрицательные массивы элемента а,потом равные нулю,а положительные...
mrscom
10.08.2021 11:15
44 паскаль абс.net . тема : сложные типы данных. записи: организовать файл, содержащий информацию о книгах. сведения о каждой из книг - это фамилия автора, название...
МихаилКузмичёв
15.08.2020 19:07
Склавиатуры вводится массив из n элементов (0-100) а) найти максимальный и минимальный б) найти количество 30 в) найти количество = 100 г) вывести 3 различных лучших...
iuliagam
18.05.2022 21:20
1058, Начертите два треугольника так, чтобы их пересечением был: 1) четырехугольник; 2) пятиугольник....
genatbukin
07.05.2020 05:30
Отметь точки А и Б на расстоянии 5 см од на от другой. Построй жёлтым карандашомлуч As a cинимКакая фигурафигура является пересечением этихлучей? Опиши эту фигуру,луч...
Aldiyar26
19.02.2020 05:36
Put the verbs in brackets into the correct tense. 2)If you had locked the door. the burglars (not/get) in. 3)Were I you. I (put on) some warmer clothes 4)Joan( be able...
onexochu
05.09.2022 17:17
5. Обсуди с одноклассниками, как сравнить поведение героев в прочитан- ном рассказе. Что тебе может ? Используй информацию в таблице исоставь устные высказывания о царевичах....
Леголаска
19.06.2020 20:08
Найдите внешний угол углов на подошве равнобедренного треугольника, если его внешний угол на вершине равнобедренного треугольника равен сделайте кто нибудь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,s:integer;
begin
a:=26;
while a<=88 do
begin
if a mod 2 = 0 then s:=s+a;
a:=a+1
end;
writeln (s)
end