Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Nqva
24.09.2021 00:23 •
Информатика
Составить программу нахожденмя суммы четных чискл на промкжутке от 26 до 88 (с предусловием)
Показать ответ
Ответ:
Tokuz
08.10.2020 17:03
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 оценок)
Популярные вопросы: Информатика
padafet2504
29.01.2020 09:54
Опишите последовательность создания модели шестигранника в 3d-формате...
olyazyuzko2017
06.06.2021 09:16
Сор по информатике за раздел анимации 6 класс 4 четверть...
Лиса0399
03.11.2022 13:18
Здрасте тут проблем я не могу зайти в акк muiv и пишет ошибку: доступ запрещен. просмотр файла /person/index.php запрещен....
gona1
25.12.2022 01:35
Решите: вычислите значение выражения (х =0) or true and (x=3) or (y*y 4) при x=5 y=2!...
milena162
11.03.2023 04:06
Ячейка памяти компьютера состоит из однородных элементов называемых 1)кодами 2) битами 3)цифрами 4) коэффициент ...
привет929
03.02.2021 06:54
На схеме изображены населённые пункты А, Б, С, Д, связывающие ихдороги и протяжённости этих дорог. Определите, какие два пунктанаиболее удалены друг от друга (при условии,...
Uspex11111
23.03.2021 04:11
Двоичное число 101 в десятичной системе счисления записывается как ......
333307
23.03.2021 04:11
1)дано трехзначное число, найти произведение цифр данного числа 2)дано трехзначное число, найти количество цифр меньших 5.Информатика...
Tortimilka
26.08.2022 07:34
Стестом по информатике надо фото внизу...
mar2865
28.09.2021 13:40
Руководители восстания Территория Важнейшие сражения 1. Жанкожа Нурмухамедулы 2. Есета Котибарулы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a:=26;
while a<=88 do
begin
if a mod 2 = 0 then s:=s+a;
a:=a+1
end;
writeln (s)
end.