Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Igor20018
26.01.2020 03:00 •
Информатика
Составить программу вычисления суммы чётных чисел в диапазоне от 1 до 100. 2+4+6+ +100
Ответ:
Yasik228
12.07.2020 22:28
Var s,i:integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+i*2;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Yulia542
03.05.2020 22:27
Определите значение переменной s после выполнения операторов s: =1; i: =1; while i =8 do begin i: =i+3; s: =s*i; end;...
френки9
03.05.2020 22:27
Напишите программу, которая инвертирует определенный бит в заданном числе (биты при этом нумеруются с 0, начиная с младших)....
Makarzzz
28.07.2020 00:20
Напишите программу, обнуляющие все биты числа, кроме нескольких последних...
kater7829
18.01.2023 08:02
Какие свойства реальных объектов воспроизводят следующие модели муляжи продуктов в витрине магазина; чучело птицы; заводской игрушечный автомобиль....
Зефирка170504
24.07.2020 00:10
Золотая баба (мансийский идол) Сколько информации в этой фразе, если современный мансийский алфавитсодержит 44 символа?Считай, что каждый символ алфавита кодируется одинаковым...
SmartPocan
12.01.2022 10:36
Как классифицируется прикладное программное обеспечение?...
nadijagordijenp07vwr
13.12.2022 18:28
Той хто розуміє і може виконувати певні команди(10 букв)...
Мария55445
03.06.2020 04:46
Что такое алгоритм с ветвлением и повторением?...
govnonavynos
02.02.2020 01:54
потрібно знайти програму в інтернеті та розписати навіщо ця програма і що в ній використовували програма вгадай число (Lazarus)...
Якрутой111
14.06.2020 23:57
Використовуючи цикл знайти суму квадратів від m до n на python...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
s:=0;
for i:=1 to 50 do
s:=s+i*2;
write(s);
end.