Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Puma20050412
19.07.2022 14:57 •
Информатика
Составить программу для вычисления суммы печатных чисел и прогнать её.
Ответ:
Milanaмилана
24.01.2021 06:57
var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
end;
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
crasheftf
01.03.2021 16:16
Исследовательская лаборатория,разработавшая концепцию графического интерфейса в 1970 году...
Loi00
01.03.2021 16:16
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 30 строк, в каждой строке 32 символов. определите информационный объём статьи в одной из кодировок...
shmklevdima
24.06.2022 06:14
Информатика. единицы измерения. ! заполните пропуски числами: а) 7 кбайт = байт = бит б) кбайт = байт = 12288 бит в) кбайт = байт = 250 бит г) гбайт = 1536 мбайт = кбайт =...
anna2016anna20
11.01.2023 17:33
Скорость передачи данных через adsl-соединение равна 512 000 бит/c. определите наибольший размер файла. который может быть передан через данное соединение за 3 минуты...
Адай111111
09.11.2021 14:08
Определите значение переменной s после выполнения следующего фрагмента программы: s: =0; i: =7; while i 1 do begin s : = s + i div 2; i : = i - 1; end; напишите, , с подробным...
ХАМЕЧОКЕ2036
28.08.2020 10:23
Информационные каналы делятся на 2 типа3 типа4 типа5 типа Нужно выбрать на сколько типов делятся ...
Притти
20.06.2020 10:40
Разлей на 3 равные частей 24-ведёрную бочку воды, используя для этого три других пустых бочонка объёмом 13 вёдер, 11 вёдер и 5 вёдер....
Ариана16112001
20.06.2020 10:40
Тигр, заєць,кит,слон.укажіть на основі яких ознак цих тварин об єднується один клас..: ?...
winx237
20.06.2020 10:40
Нужна проблематика пьесы бег булгакова. , кто знает...
maksi7
20.06.2020 10:40
Как выглядит график функции y=2-cos(3x)?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
end;
Объяснение: