Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Эээээээ11
18.07.2020 07:12 •
Информатика
Составить программу вычисляющую сумму нечетных чисел от 1 до 10.
Показать ответ
Ответ:
еденорожек12
02.10.2020 20:46
Var sum:integer;
i:integer;
begin
sum:=0;
for i:=1 to 10 do
if i mod 2=1 then sum:=sum+i;
writeln(sum);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AirinMandarin
04.02.2020 17:51
Расшифровать моноалфавитный подстановочный шифр. Расшифруйте следующее сообщение, составленное с моноалфавитного подстановочного шифра. Открытый текст, состоящий...
missiskitten
13.07.2022 19:39
Выполните арифметическое действие. В ответе укажите получившееся число, основание системы счисления указывать не нужно. 1010001 2* 11011 2...
vvolkova
02.01.2022 18:28
1. Формализовать и решить логическую задачу Продавец фруктов заказал на оптовой базе по ящику яблок, апельсинов и груш, составил ящики друг на друга и повез к своей...
Dimoon122
30.09.2022 14:52
1. Напишите программу, которая определяет среднее арифметическое двух чисел, если «a» положительное. И частное (a/b), если «a» отрицательное. Значения переменных...
Красотка12092002
10.10.2021 18:03
Всем , решить ! №3 1)2*3x= 2)9x*8= 3)23*4b= 4) 48*у*8b= 5)6a*8b= 6) 11x*14y= 7)14m*3n= 8)4a*8*b*3*c 9)12x*3y*5z=...
katerina344
10.10.2021 18:03
Схема к вкассе 30 билетов .продали 2 групам по 10 билетов .сколько билетов осталось продать...
ФЛЭМЭНКО
10.10.2021 18:03
Укажите падеж имён прилагательных задремали звёзды золотые, задражало зеркало затона, брезжит свет на заводи речные и румянет сетку небосклона....
Tanya21105
10.10.2021 18:03
Напиши свою авто биографию обрразец...
steeg99
10.10.2021 18:03
Найдите в списке исконно слова: (выбрать букву) а.)бельё,косынка,рубашка. б.)цилиндр,сандалии,шорты. в.)сарафан,тулуп,ботинки. г.)комбинезон,пальто,галстук....
klubnika1985
10.10.2021 18:03
Составить для орфографического минимума перечень из 15 неологизмов (с указанием их лексического значения)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
sum:=0;
for i:=1 to 10 do
if i mod 2=1 then sum:=sum+i;
writeln(sum);
readln;
end.