Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mccoy04
05.02.2020 15:03 •
Информатика
Найти сумму n первых нечётных натуральных чисел.(паскаль)
Показать ответ
Ответ:
vasvas12
07.08.2020 20:54
Var
n,i,a:integer;
Begin
Write('Введите число ');
Readln(n);
if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');
for i:= 1 to n do
if ((i mod 2) <> 0) then a:=a+i;
write(a);
End else write('Введено число меньше единицы');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
2006Tatiana2006
28.02.2022 14:35
Склавиатуры вводится слово. составить программу, которая: а) определяет количество символов в нем; б) определяет, ли первая и последняя буквы слова; в) выводит на экран его первый,...
Маратрмл
21.10.2022 18:23
Построить график функций y=2sin(x/3) на отрезке [3,14; 25,12] с шагом 0,9 в программе ms excel...
Ganshit
09.06.2023 00:45
В чём сходства и различия, понятий: Моделирование и формализация?...
alinanazarova20
17.04.2021 15:31
4 байта=...бит 2Кб=...байт 2048 байт=...Кб 512 Кб=...Мб 1024 Мб=...Гб...
Лена36793
21.12.2021 09:19
Екі пікірдің айырмашылығын анықта. 1. Өзіміздің туған өлкедегі осындай таңғажайып жерлерді емес, шет елдің табиғатын көруге асығу - өз туғантабиғатымызды қадірлемеу, бағаламау.2....
cook16
30.11.2021 21:08
для обработки рук хирурга ран операционного поля используется йодная настойка с массовой долей 5%.В каком массовом соотношении нужно смешать растворы с массовыми долями йода 2,5%и...
kamallm712oxbgkk
24.09.2022 11:34
Выберите нужную по смыслу временную форму глагола. Я вчера (читаю, читал, прочитаю) басню Крылова «Волк и Ягнёнок». Вечером младший брат (играет, поиграет, играл) с котёнком. На...
Dydina5555521
06.02.2021 10:16
Положение какого из сословий наиболее сильно изменилось во время правления первых Романовых . ответ аргументировать...
geneu
29.12.2020 00:15
Jack has been doing the same job for a very long time. Jack’s job is...
Marinap041744
11.09.2020 02:36
Задание 8 ( ). На каком рисунке знаками отображена погода в тот день, когда температура воздуха была ниже 0 градусов? Укажите букву, которой обозначен этот рисунок. Посчитайте амплитуду...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i,a:integer;
Begin
Write('Введите число ');
Readln(n);
if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');
for i:= 1 to n do
if ((i mod 2) <> 0) then a:=a+i;
write(a);
End else write('Введено число меньше единицы');
End.