Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TheWalkingDeadTWD
13.08.2022 13:28 •
Информатика
Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10
Показать ответ
Ответ:
Kasha26336
02.10.2020 00:58
С оператора while:
var
i,sum:integer;
begin
sum:=0;
i:=1;
while i<=10 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Пойдет?
uses crt;
var
i: byte;
s: word;
begin
i := 1;
s := 0;
while i <= 10 do
begin
if i mod 2 <> 0 then
s := s + i;
inc(i);
end;
writeln('Сумма нечётных чисел от 1 до 10: ', s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
віта9клас
15.06.2020 08:38
Информатика 8кл Задача 1 У исполнителя Дельта две команды, которым присвоены номера: 1. вычесть 8 2. умножить на d (d – неизвестное целое число; d 0) Выполняя первую из...
ElzaSalih
05.09.2022 09:34
Напишите код, который обменивает значения в регистрах RSI и RDX. Т.е. если перед выполнением вашего кода в регистре RSI хранится число 1, а в регистре RDX хранится число...
fargustyana
26.06.2020 07:49
1.md5 суммы нужны для того, * 1. упорядочить расположение файлов на компьютере 2.уменьшить размер файлов на вашем компьютере. 3.проверить целостность пересылаемых файлов...
hmelova
14.05.2023 17:12
Это формативное оценивание очень Какой оператор используется в Lazarus для проверки условий?На какие виды делится оператор проверки условий по типу применения:3. В чем заключается...
vovastepochkin
08.07.2021 17:48
О В городе были проведены N о В каждом о участники ставили Да или Нет . Для каждого о результат считается положительным, если в любом из них количество положительных больше...
FubZ1k
25.05.2020 18:38
МНЕ С ЗАДАЧАМИ Нужно решить задачи в виде блок схем, прописать поэтапное выполнение алгоритма. 1. Дано трехзначное число n. Переставить местами первую и последнюю цифры...
leski
01.01.2020 00:58
Вписать пропущенные слова: знание тем больше по величине,чем больше числом... и дольше по ... востребована информацию связанная с этим знанием...
lolko2
07.02.2020 19:49
Б.Момышұлы шығармасындағы туған өлке туралы өз ойыңды білдір...
просто346
22.03.2021 10:17
Кому посвящается сказка Николая Гарина-Михайловского книжка счастья А)брату Антону Б)отцу Юрию В)племяннице Ниночке Г)подруге Симе...
aaannnaaa1
22.03.2021 10:17
Задание 2. Сформулируйте и запишите тему произведения и основную мысль (идею) повести М.М. Пришвина «Кладовая Солнца»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i,sum:integer;
begin
sum:=0;
i:=1;
while i<=10 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Пойдет?
uses crt;
var
i: byte;
s: word;
begin
i := 1;
s := 0;
while i <= 10 do
begin
if i mod 2 <> 0 then
s := s + i;
inc(i);
end;
writeln('Сумма нечётных чисел от 1 до 10: ', s);
readln;
end.