Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
radomirboy
17.03.2023 18:51 •
Информатика
Составить программу вычисления суммы нечётных чисел от 1 до 99.
Ответ:
saparhanaruzhan
11.06.2020 23:12
var i,s:integer;
begin
s:=0;
for i:=1 to 99 do
if (i mod 2=1) then inc(s,i);
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zuza81ozzhmr
08.09.2021 07:42
Допишите пропущенные команды программы и впиши результат выполнения программы Program test1 Var x,y,z:integer; X:=3; Y:=5; Zx+y; write(z) End. Результат:...
danchik1106
16.06.2021 05:20
Сколько различных кодовых слов длиной 3 символа можно получить с алфавита {@, #, &}...
Aizadaserikova2004
01.10.2021 05:49
Алгоритми та їх виконавці ...
АннаЛютинго
01.03.2022 08:17
Склавиатуры вводится слово. подсчитать количество букв е в слове...
alyafalendysh
06.04.2021 06:45
Глобальная сетьА. объединение компьютеров в пределах одного города, области, страныБ. объединение компьютеров, расположенных на большом расстоянии друг от другаВ. объединение локальных...
маьтвор
15.04.2021 22:47
2. Найдите сумму чисел A6₁₆ + 75₈ и результат переведите в двоичную систему счисления....
Natasharuslan11
20.04.2022 04:13
Выберите несколько вариантов ответа Какие из файлов содержат растровую графику? ant.jpeg train.eps flower.cdr chess.bmp cat.gif thanks.pdf...
tasss1
28.05.2021 18:38
Петя Антону выполнить домашнее задание по информатике, консультируя его по телефону. Вот какие инструкции он дал Антону 1. Открой Paint. 2. На панели Главная с палитры сделай Цвет...
f0kYsss
30.03.2023 22:23
Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом Если в слове нечетное количество букв, в конец дописывается буква Ф. Затем меняются местами...
sab2021
17.05.2020 06:48
Дано N целых чисел. Найти сумму нечетных чисел Pascal ABC net...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i,s:integer;
begin
s:=0;
for i:=1 to 99 do
if (i mod 2=1) then inc(s,i);
writeln(s)
end.