Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
otvet12313434
16.08.2020 22:23 •
Информатика
Найти сумму n первых нечётных натуральных чисел.(паскаль)
Показать ответ
Ответ:
LOL8KEKYC
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 оценок)
Популярные вопросы: Информатика
PoMOgiTe212lk
12.10.2022 23:30
5. Переведи десятичное число 13510 в двоичную и восьмеричную систему счисления....
ника2735
23.04.2023 22:51
Файл размером 4000 Кбайт передаётся через некоторое соединение в течение 210 секунд. Определи размер файла (в Кбайт), который можно передать через это соединение за 84 сек....
9petya
28.11.2020 04:24
Написать программу для Паскаль Квадрат числа Программу нужно написать на языке Паскаля...
nowichok
09.03.2020 03:20
Описать класс матрица. создать метод вычитания матриц (перегруженный оператор “–“). в программе показать пример в c#(си шарп)...
gelyusya
21.06.2021 06:45
Текстовый документ, состоящий из 20480 символов, хранился в 8-битной кодировке кои-8. этот документ был преобразован в 16-битную кодировку unicode....
khramenkova
13.04.2020 05:04
Дано целое число а. если значение а 0, то необходимо увеличить его на единицу. написать программу для решения этой . программа должна иметь дружественный интерфейс....
Yassin246
10.02.2021 16:23
8.Встановити відповідність між назвами та категоріями природоохоронних територій:1.Асканія Нова а)ботанічний сад2.Синевір б)природний заповідник3.Нікітський в)біосферний заповідник4.Рівненський...
Hist18
17.05.2022 21:48
Дано: CA0= 77 градусов Вычисли: Угол ABО = Угол САО = Очень надо...
ктознаетрусский
18.03.2021 05:28
Прислівник який означає місце дії: а)красиво б)внизу в)зопалу г) нерухомо...
PtichkaSchelkoi
17.12.2021 22:19
Вычисли DA, если CD = 9 см и угол ВОС очень надо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.