Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ViktoriaTo
17.09.2020 12:46 •
Информатика
Напишите программу, которая вычисляет сумму всех чётных чисел в диапазоне от 1 до n.
Показать ответ
Ответ:
fvbh3fvhc
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 оценок)
Популярные вопросы: Информатика
ilmasha24
17.06.2020 21:01
2) перевести числа 57, 78 в 2-ичную систему 3) перевести число 231 в 8-ичную 4) перевести 401 в 16-ичную (делить надо)....
YaroslavShevchuk
17.06.2020 21:01
Решите по информатике за 7 класс на pascale, через integer. даны три числа нужно вывести среднее при этом они не могут быть одинаковыми. например: 6, 10, 3 вывести...
lera1062
14.06.2021 17:29
выбери 3д модели используемые планетарий...
struk20022298
22.01.2020 14:27
решить иформатику на python...
pelmen123456789
17.02.2021 22:39
Решить задачи и написать решение 1) на дисплее планшетного компьютера в режиме чтения помещается 32 строки , каждая из которых содержит 64 символа. Сколько страниц...
НастяБлог
05.02.2022 02:38
Все неживые объекты можно разделить на и некомпьютеры . и что вставить в...
хочузнать2018
20.07.2020 00:06
Найти сумму от 100 до 200,кратных 17...
dilinur15
17.01.2022 09:07
Определите значение переменной а после выполнения фрагмента программы а=15 if а 10 а=10...
khamraevmowfdcs
03.04.2023 22:09
1. Составьте программу, которая определяет, является ли треугольник прямоугольным (в прямоугольном треугольнике сумма квадратов катетов равнаполовине гипотенузы).огольника...
ilyaslepuhin
05.12.2020 12:50
Напишите ЭССЕ на тему Профилактика интернета - зависимость школьников над ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.