Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Boris2006
11.06.2022 19:51 •
Информатика
Написать программу, . напишите программу, которая находит сумму двухзначных нечетных чисел. последовательность чисел заканчивается числом 0.
Показать ответ
Ответ:
Marina11231
08.10.2020 00:15
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0)
.Where(t->t.IsOdd and t.InRange(10,99)).Sum.Println
end.
0,0
(0 оценок)
Ответ:
KatyaSy
08.10.2020 00:15
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 2<>0) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tomilka777
01.11.2022 05:03
Уисполнителя альфа две команды которым присвоены номера 1. прибавь 1 2. умножь на b (b-неизвестное натуральное число; b больше или равно 2) выполняя первую из них, альфа увеличивает...
stupinaksp029hy
31.03.2021 14:47
Разработать программу вычисления функции, определяемой с следующего условного оператора (На АССЕМБЛЕРЕ) IF лв THEN y:= f1(a,b,c,d,e) ELSE y:= f2(a,b,c,d,e), гделв - логическое...
Lizak11
23.05.2021 09:15
№1 В ячейку С2 ввели формулу =ПИ( ). В ячейку D3 ввели формулу =ЦЕЛОЕ(С2*100). Какое число будет в ячейке D3? (внесите ответ-число) * №2 В ячейку А1 вводится число 9. Какой...
ulaklimenko49
08.04.2022 07:31
Сколько килобайт памяти необходимо для хранения рисунка размером 512 × 128 пикселей, если в нем используется 32 оттенков серого цвета?...
VERONIKA114561378
08.04.2022 07:31
Для проверки развития проверяют рост школьников.составте программу,запаршивающую рост очередного школьника т вычислявшую после медосмотра средний рост осмотор.количество школьников...
titan9064
01.03.2023 01:32
Var s,k: integer; begin s : = 1; for k : = 0 to 4 do s : = s * 3; writeln(s); end....
карина2148
23.07.2020 23:20
Вexcel работу выполнить,на фото всё...
Romizn
05.02.2023 14:09
3плюса и 3 минуса о электронной почте?...
alexstasy
05.11.2020 07:24
образуйте глаголы в повелительном наклонении от глагола в форме инфинитива. Повелительное наклонение должно быть образовано при суффиксов: -и-/-й-,-те. Глаголы в повелительном...
upsbeats
06.01.2021 20:59
заполнить таблицы (с подробным рещением). 1). Определить предельный и средний продукт 2). Вычислить издержки производства...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0)
.Where(t->t.IsOdd and t.InRange(10,99)).Sum.Println
end.
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 2<>0) then sum:=sum+a;
readln(a);
end;
write(sum);
end.