Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
meshka123
18.02.2022 11:34 •
Информатика
Составте алгоритм для вычисления суммы 100 чисел
Ответ:
СветаТихая
21.06.2020 02:20
Var a,b,c:integer;
begin
for a:=1 to 100 do
begin
if a mod 2=0 then b:=b+a
else
c:=c+a;
end;
writeln(b);
write(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Онелик
14.01.2021 19:40
Каких действий следует избегать при работе с файлами? заранее...
lizashevchuk664
02.12.2020 09:41
Придумайте кодирования цветов для 256-цветной палитры....
malgee4
02.12.2020 09:41
Почему компьютер является универсальной машиной для работы с информацией? заранее...
GT3
02.12.2020 09:41
1. информационными процессами называются действия, связанные: a) с созданием информационных систем; b) с работой средств массовой информации; c) с получением (поиском), хранением,...
alina555557
02.12.2020 09:41
Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое чисел от 1 до ! тоже на паскале ! 1...
DAYH228
02.12.2020 09:41
Вэлектронной таблице значение формулы =сумм(с3: e3)=15 чему равно значение формулы =срзнач(с3; f3) если значение ячейки f3 равно 5...
aksenovazlata
02.12.2020 09:41
Как через паскаль решать.. гражданин 1 марта открыл счет в банке, вложив 100000 руб. через каждый месяц размер вклада увеличивается на 4% от имеющейся суммы. определить:...
serbakovm888
02.12.2020 09:41
Продолжите фразы: алгоритм- исполняют...
МЯУСИМ2007
18.12.2020 14:52
Как переделать презентацию powerpoint 2007 в powerpoint 2003?...
martineztop
18.12.2020 14:52
Проверьте ,, правильно ли составлена программа. : из трёх чисел x,y,z найти наибольшее. нужно, чтобы в программе было полное ветвление (if логическое условие then оператор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
for a:=1 to 100 do
begin
if a mod 2=0 then b:=b+a
else
c:=c+a;
end;
writeln(b);
write(c);
end.