Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
silinskay
11.12.2021 14:46 •
Информатика
Написать программу, вычисляющую сумму первых 10 нечётных целых чисел. заранее .
Показать ответ
Ответ:
vladimlr
07.07.2020 10:35
Program prog;
var a,i,s:integer;
begin
s:=0;
writeln('Укажите начало отрезка ');
readln(a);
for i:=a to a+10 do begin
if a mod 2 = 1 then
s:=a+s;
end;
write('Сумма нечетных 10 элементов начиная с ',a,' равна ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
varta
21.12.2021 05:05
Здравствуйте. Есть приложение Discord bot desinger. В этом приложении можно сделать бота как поставить постоянный хостинг?...
ніна091203
15.02.2020 03:46
Установите соответствие:...
remizowanikaggr
26.11.2022 05:24
Записан стереозвук продолжительностью 2 часа 30 мин глубиной 16 бит частотой 48000 . опредилить какого размера должен быть диск чтобы записать его ....
Joyli67
16.09.2022 14:27
Написать программу переводящая заданную десятичную дробь в равную ей обыкновенную несократимую дробь,заданную числителем и знаменателем. входные данные выходные данные:...
TanyaNef
19.08.2020 03:16
:найти самую большую цифру целого числа. в турбо паскаль....
WhiteRos
19.08.2020 03:16
:напечатать и подсчитать сумму всех четных чисел от 10 до 30....
8977288
19.08.2020 03:16
Написать программу на ассемблере. в массиве из восьми элементов найти минимальный элемент и его индекс...
Айхан1111111
14.11.2022 22:52
Магазин за три дня продал 250кг яблок. в первый день продал 3/5 всех яблок,во второй 3/4 остатка, а в третий день продал последние яблоки. сколько килограммов яблок продали...
diankasht
20.10.2020 21:08
Дано целое четырехзначное число. вычислить произведение его цифр (создать программу на паскале)...
natachernov
20.10.2020 21:08
1. проводятся две лотереи: 5 из 30 и 3 из 42 . сообщение о результатах какой из лотерей несет больше информации? 2. проводится лотерея 6 из 42 ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i,s:integer;
begin
s:=0;
writeln('Укажите начало отрезка ');
readln(a);
for i:=a to a+10 do begin
if a mod 2 = 1 then
s:=a+s;
end;
write('Сумма нечетных 10 элементов начиная с ',a,' равна ',s);
end.