Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
666Лисица666
15.12.2021 02:54 •
Информатика
Вычислить сумму натуральных чисел не превосходящую заданное число а, while
Показать ответ
Ответ:
Demians
06.10.2020 06:01
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
sumochkaaaaa
02.01.2023 16:43
Бітова частота звукового файла дорівнює 128кбіт. Файл прослуховували протягом 2 хв. Визначте обсяг звукового файла в Кбайтах?)...
PhotoBelka
24.05.2023 14:39
Легкое задание на скриншоте...
agasan420
13.11.2021 08:18
Как называется компьютер сети, который хранит, сортирует и поставляет общую для сети информацию, управляет общими устройствами?...
Angilass
20.10.2020 15:24
у меня БЖБ по информатике...
popovat496
05.04.2020 23:34
Назовите инструменты навигации Вращение, лупа, многоугольник.вращение, тяни/толкай, прямоугольник.Вращение, лупа, предыдущий вид.Тяни/толкай, следуй за мной, окружность....
Лида147
26.05.2022 22:18
ТЕКСТ ЗАДАНИЯ Из списка выберите программы для построенияи редактирования трехмерных моделейВерных ответов: 2Power PointLego Digital DesignerSkethUpPaint...
radkov02p08713
28.03.2020 13:49
Помагите Пусть А = «Вторая буква в слове гласная», В - «Третья бук- ва в слове согласная». Найдите значение логического выра- жения А л В для слов: a) доброта; б) дружба;...
СоНя2080
21.07.2020 11:16
второй и третий написать ответ...
Котенок050402
13.03.2022 05:18
Информатика 9 класс Pascal ABC...
КИСА010
08.03.2022 23:04
В некотором каталоге хранится файл Список_литературы.txt. В этом каталоге создали подкаталог с именем 7_CLASS и переместили в него файл Список_литературы.txt. После чего...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.