Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
16nastia16
29.05.2021 12:06 •
Информатика
Составьте программу, которая вычисляет сумму первых десяти нечетных натуральных чисел с оператора .
Показать ответ
Ответ:
yuliabler
31.08.2020 13:28
Var
i, s: integer;
begin
for i := 1 to 10 do
s := s + (2 * i - 1);
writeln(s);
end.
0,0
(0 оценок)
Ответ:
vikagalimzhano
31.08.2020 13:28
Var i,s,k:integer;
begin
for i:=1 to 100 do
begin
if (k<10) and (i mod 2=1)
then
begin
s:=s+i;
k:=k+1;
end;
end;
writeln(s);
end.
//Хотя совершено глупо в данной ситуации использовать for куда лучше while
0,0
(0 оценок)
Популярные вопросы: Информатика
rufdiana
04.05.2022 23:16
Декодировать текст, записанный в международной кодировочной таблице ASCII (дано десятичное представление). 87 105 110 100 111 119 115...
Mimiminika
17.08.2022 18:16
Закодировать текст с кодировочной таблицы ASCII. How old are you?...
radomirboy
11.03.2021 03:33
Готовь лыжи летом-? шайбы по весне считают-? когда в соседях согласья нет?...
blvckbubblegum
11.03.2021 03:33
Уравнение движения имеет вид x = 0,06 cos 100 пt. максимальная скорость /с, с решением...
VIXXX
11.03.2021 03:33
Войны московского княжества с суздалем тверью рязанью литвой относятся к кеяжению ?...
demon998
11.03.2021 03:33
Назовите качества, свойства души молодой царевны (сказка о мертвой подведите словами сказки почему её полюбили братья? почему она не приняла предложение братьев? как этот...
Уточка1234
11.03.2021 03:33
Дробно рациональные ур-я х+5 =0 х-1...
владислав186
11.03.2021 03:33
Загадки с именами прилагательными 3 класс...
ibrunetochka
23.03.2020 06:50
Используя данные местоимения, составите три-четыре предложения. имейте в виду,что слова первой группы более употребительны в книжной речи,а второй в разговорной. 1) нечто,некто,кто-либо,как-либо,какой-либо....
artemmishin7777777
23.03.2020 06:50
Предком современных птиц учёные считают: 1)динихтиса2)фороракоса3)стегоцефала4)брахиозавра....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, s: integer;
begin
for i := 1 to 10 do
s := s + (2 * i - 1);
writeln(s);
end.
begin
for i:=1 to 100 do
begin
if (k<10) and (i mod 2=1)
then
begin
s:=s+i;
k:=k+1;
end;
end;
writeln(s);
end.
//Хотя совершено глупо в данной ситуации использовать for куда лучше while