Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lehmannastyaaovt8b2
28.04.2023 04:30 •
Информатика
Составить программу на вычисление суммы первых 10 четных чисел : )
Ответ:
katyamora
02.10.2020 07:32
Var a,n : integer;
begin
a:=0;
n:=1;
while n<=10 do
begin
a:=2*n+a;
inc(n);
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tenickiy176
15.05.2022 00:14
Сочинение на тему: роль текстовой информации в моей жизни . 5 предложений,...
yarroslawfd
22.07.2021 21:09
Скорость передачи данных через lan-соединение равна 128000 бит/с Определите время передачи файла размером 64 Кб через это соединение....
Dinka2103
13.02.2022 14:51
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет...
Диана135793
11.12.2021 18:09
Решить блок задание огэ по геометрии...
vladmasWwr
29.02.2020 04:39
4. Решите задачу. Масса тела равна 200 г. Тело движется со скоростью 20 м/с. Определитекинетическую энергию тела....
Kioppps
10.06.2021 13:32
Позначте речовину з якою взаємодіє калій гідроксид...
alligator5
20.06.2022 07:34
Легенда о Солнце и Луне. Когда-то очень давно, когда еще не было ни луны, ни солнца, юноша сидел на берегу моря. Он мечтал о счастье. И вдруг, в темной глади моря, он увидел отражение...
Anna45891
05.08.2021 18:04
Напишите заголовок к тексту пшпшпш...
amina555658
10.07.2020 18:49
Докажите тождество: а2+ах+2:а3−3=х+1 х−1 2−1 а−х...
permyakov2001
12.06.2022 00:46
Я хотел скачать приложение на сайте и вылезло такое оповещение что мне делать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
a:=0;
n:=1;
while n<=10 do
begin
a:=2*n+a;
inc(n);
end;
writeln(a);
end.