Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
motorindmitry12
30.03.2020 08:33 •
Информатика
Написать программный код к : определите и выведите на экран сумму всех нечётных двузначных чисел
Показать ответ
Ответ:
Людочка13
03.10.2020 10:47
1)
Var s,i : Integer;
Begin
i:=1; s:=0;
While i<=99 do
Begin
s:=s+i;
i:=i+2;
end;
Writeln(s);
end.
2)
Begin
Writeln((1+99)*50 div 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
YumiChan153
24.05.2023 03:48
составить программу: Составить программу нахождения среднего арифметического значения всех делителей заданного натурального числа N, кратных 3. Вывести 0, если нет делителей. (Само...
Юлька1150989776543
26.06.2020 08:35
Виконати завдання: №1 Вивести на екран повідомлення Вітаю , якщо користувач уводить слово так...
аньён1
08.10.2020 13:55
Як з 7 зробити зробіть будьласка ...
Невидимка003
03.05.2020 18:01
Протестировать алгоритм на числах 5,5 и-4,3, а также на числах 1 и 14,5....
Ksyufenka
03.05.2020 18:01
Написать программу, которая определяет сумму всех четных чисел, не кратных 3...
Ilyavazhnov1995
03.05.2020 18:01
Какова основная особенность графического редактора...
kblaginin6gmailm
08.04.2023 15:46
Нужна программу на паскале которая делит слова по слогам...
spanielskubidu1
28.03.2023 23:37
Как называется набор файлов,включающих в себя собственно программу в сжатой форме,программу-установщик и файлы...
kolianazarenko
23.04.2020 07:57
Когда применяется условный оператор?...
dsefanova
07.08.2021 18:19
Вчем ошибка? даны два целых числа a и b (a b). найти все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания, а также количество n...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var s,i : Integer;
Begin
i:=1; s:=0;
While i<=99 do
Begin
s:=s+i;
i:=i+2;
end;
Writeln(s);
end.
2)
Begin
Writeln((1+99)*50 div 2);
end.