Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lpp210103
07.06.2021 13:10 •
Информатика
:напечатать и подсчитать сумму всех четных чисел от 10 до 30.
Показать ответ
Ответ:
DASHAMIronovAAA
24.06.2020 16:58
10,12.14,16,18,20,22,24,26,28,30:общее количество 11
0,0
(0 оценок)
Ответ:
visokolova
24.06.2020 16:58
var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nadia3567
03.04.2022 05:38
Нарисовать граф системы компьютер , содержащий следующие вершины: процессор, оперативная память, клавиатура, дисплей, принтер. соединить их направленными линиями (стрелками),...
mila2086
06.07.2020 13:40
Дан массив из 30-ти элементов. каждый элемент может принимать целочисленные значения от -100 до 100. напишите программу, которая позволит подсчитать среднее арифметическое...
dinara240787
17.05.2022 19:59
How do we register obtaining counterparts of documents...
Аккаунт удален
28.10.2020 08:50
Номер 1 Определите значения переменных s и i после выполнения фрагмента программы: s:=0; i:=5: while i 0 do begin s:=s+i; i:=i-1; end; Выберите верное: 1. s=15, i=0 2. s=0,...
LolaTi
07.04.2022 01:41
Составить блок-схему на любую тему + описание...
DarkLooord
24.08.2022 00:13
Постройте чертеж подвижного блока укажите на нём вес груза...
Олисочка
07.10.2020 17:42
Стороны паралелограма 12и16см Значить його висота якщо площа поролелограма =96см2...
s0nnka
23.10.2021 03:48
11. До розчину калій гідроксиду масою 250 г з масовою часткою лугу 10%додали 50 г твердого калій гідроксиду. Обчисли масову частку лугу в новомурозчині....
Ijony
23.10.2021 03:48
Як кожен із творів висвітлює причини Національно-визвольної війни? Чому звикладеного можна довіряти? Чому — ні?Літопис СамовидцяЛітопис Григорія Граб янкиЛітопис Самійла Величка...
Полина1111111С
10.03.2022 11:38
Найдите 4% от чисел: 315; 61,5; 180; 151....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
end.