Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
AquAlexa
22.09.2021 21:18 •
Информатика
Найти сумму пятнадцати нечетных чисел натурального ряда, начиная с n> 0. n вводится с клавиатуры
Показать ответ
Ответ:
lazmax2000
08.07.2020 06:47
var
i, n: byte;
s: integer;
begin
readln(n);
for i := n to n + 15 * 2 - 1 do
if (i mod 2 = 1) then
s := s + i;
writeln(s);
end.
0,0
(0 оценок)
Ответ:
KrasnovaLu82
08.07.2020 06:47
Возможно не самое лучшее решение, зато тут нет циклов и всего одна переменная :)
var n:integer;
begin
Writeln('Задайте N');
Readln(n);
if n mod 2 = 1 then
n:=n+14*n+2*14;
else
n:=n+1+14*n+2*14;
writeln('Сумма чисел:')
write(n);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
veraeliseeva718
20.06.2020 07:43
Написать программу в паскале при вложенного цикла: (1+3+5++15)*(2+4+6++18)...
шедвер
02.11.2020 08:05
С! создать числовой массив из 10-ти элементов с рнд (генератор случайных чисел) в интервале от 0 до 15 с выводом числа 3...
artemssh2
17.12.2020 07:30
Решить : вывести на экран массив из n случайных чисел и найти номер элемента, значение которого равно n (если вводится что n=10 ,то вывести номер элемента ,значение которого...
Глебочек
12.09.2021 22:05
Дано целое шестизначное число. найти произведение его цифр...
Конник953
14.08.2021 10:37
Заполни пропуск в схеме.а)коммутативный.б)законы отрицания.в)сочетательный закон.г)закон исключенного третьего....
DavtynGalia
08.12.2021 00:51
Алгоритмічна структура, що дає змогу виконавцеві алгоритму вибрати сценарій подальших дій залежно від істинності певного висловлювання, називається...
owl42
08.12.2021 06:44
Найдите значение выражения: в) 17,1*3,8: 4,5*0,5; г) 81,9: 4,5: 0,28*1,2. решите по действиям !...
123456uiop
08.12.2021 06:44
Странсквицыя read and write the words...
gmejenny
08.12.2021 06:44
Составьте слово из этих букв e c b f a d...
tooijas
08.12.2021 06:44
Как проверить слово вокзал букву к чтобы точно слышалась к...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, n: byte;
s: integer;
begin
readln(n);
for i := n to n + 15 * 2 - 1 do
if (i mod 2 = 1) then
s := s + i;
writeln(s);
end.
var n:integer;
begin
Writeln('Задайте N');
Readln(n);
if n mod 2 = 1 then
n:=n+14*n+2*14;
else
n:=n+1+14*n+2*14;
writeln('Сумма чисел:')
write(n);
readln;
end.