Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dima2002eee
11.01.2020 18:21 •
Информатика
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. с постусловием (for ещ4 не изучали).
Показать ответ
Ответ:
7Tamada7
07.10.2020 16:52
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
annaaverina
05.11.2021 18:43
Почему я не могу выбрать рижим загрузки legacy как исправить...
cat497
21.10.2022 16:09
Составьте программу для вычисления площади трапеции при известных основаниях и высоте....
ЯLOVEспорт
21.10.2022 16:09
Описать массив из 10 элементов целого типа. присвоить 3-му элементу значение 9, 6-му элементу значение равное сумме 2-го и 7-го, а 5-му значение разности 10-го и 9-го...
olyadudina98
27.11.2020 05:09
Переведите и запишите примеры в тетрадь.floatint ...
ffggghhhd
15.03.2022 04:29
Pascal.abc 1: создать два массива из 10 целых чисел а и в. заполнить массив а и вывести его. заполнить массив в элементами из а, но в обратном порядке. 2: создать тот же...
Foxamel
18.06.2020 21:43
Загадка про ножницы на что они похожи и состав...
gidra2281337
31.05.2020 17:09
Придумайте из этих букв слово аёмашижкевл...
Йыч
31.05.2020 17:09
Почему на ночь из спальни рекомендуется вносить растения...
atitova644
31.05.2020 17:09
ответ на вопрос чего в комнате не видешь...
skipos
31.05.2020 17:09
Что такое барокко своими словами 7 класс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.