Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
awatif768
16.03.2020 16:42 •
Информатика
Найти сумму чисел от 3,5,7,9,11 101 через паскаль. ,)
Показать ответ
Ответ:
оарташ
09.07.2020 20:22
Var
i, s: integer;
begin
s := 0;
i := 3;
while i <= 101 do
begin
s := s + i;
i := i + 2
end;
Writeln('Сумма равна ', s)
end.
Тестовое решение:
Сумма равна 2600
0,0
(0 оценок)
Популярные вопросы: Информатика
КристинаМазова
19.03.2021 06:07
На шоссе расположены пункты K и R, удалённые друг от друга на 25 км. Мотоциклист выехал из пункта R в направлении, противоположном K, со скоростью 55 км/ч. Составь математическую...
Dima140916
04.03.2023 23:11
История развитии информационной безопасности...
nNasty23
03.06.2023 18:49
Уменя в выдает ответ с 0 (0008). : перевод из десятичной системы в восьмеричную в паскале, используя while. найдите ошибку. program zad3; var n, k: integer; begin read(n);...
irada2004irada
20.08.2021 16:15
Конспект на тему арифмитические операции...
хюрем3
13.03.2023 09:16
На шоссе расположены пункты K и P , удалённые друг от друга на 58 км. Мотоциклист выехал из пункта P в направлении, противоположном K, со скоростью 58 км/ч.Составь математическую...
Варвара75639
26.09.2020 06:38
Дополните программный код, чтобы получилось изображение, приведенное на рисунке , мне нужно) Длина и ширина холста 1000 точек from tkinter import * tk = Tk() canvas =...
comet55
06.02.2023 23:44
При каком значении п выполняется равенство = 81? )=10000...
misharudakov2
06.02.2023 23:44
Всочинения по теме: день театра 27 марта...
lozhe4ka
06.02.2023 23:44
Рассказ на наша планета страдает с переводом на ....
терминатор43
06.02.2023 23:44
Какой орган решал важные государственные дела при драконте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, s: integer;
begin
s := 0;
i := 3;
while i <= 101 do
begin
s := s + i;
i := i + 2
end;
Writeln('Сумма равна ', s)
end.
Тестовое решение:
Сумма равна 2600