Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1406052005
22.04.2023 09:04 •
Информатика
Напишите программу, которая вычисляет сумму всех чётных чисел в диапазоне от 1 до n.
Показать ответ
Ответ:
Настя61391
02.07.2020 21:59
Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
m3rry1
18.02.2021 14:56
Запиши число 12661 в развёрнутом виде, начиная со старшего разряда....
Matthieu5401
28.02.2020 07:24
Вычисли x=32+452+7. Запиши программу для вычисления x в Паскале и выведи на экран. var x:char; begin x:=(32+45)/(2+7); writeln( x= ,x:4:2); readln; end. var x:real; begin x:=(32+45)/(2+7);...
25424446645
11.01.2021 12:08
С функции Swap поменяйте местами пары соседних элементов массива a(10). Можно выполнить программу либо на Питоне, либо на VBA....
yablokooooo
31.12.2020 12:30
3D-модели объектов. Урок 1 Выбери 3D-модель, при создании которой не были использованы тела вращения....
Уликак
08.04.2023 01:49
Вграфическом редакторе paint построить логическую схему для выражения: х4 или (не х1 или х2) и (х3 или не х2)....
vanaromanihinp077sx
20.12.2020 01:48
Двумерный массив 7*8 заполнен случайными целыми числами. найти количество и произведение ненулевых элементов. паскаль...
DIMITMARASIT
24.08.2022 15:43
какой минимальный объем памяти (в кбайт) потребуется что бы можно было сохранить растровое изображение размером 256 на 256 пикселов при условии, что в изображении могут использоваться...
ElementalOfChaos
19.12.2020 23:39
Вон навсегда остался открывателем новых путей, великолепным мастером стиха, доказавшим, что поэт может передать все многообразие человеческих страстей, все сокровища, заложенные в...
savannah1
19.12.2020 23:39
Фишбоун по биологии надо написать отличие мукора и пеницилла и вывод...
slevcenk
19.12.2020 23:39
Написать письмо своему любимому животному...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.