Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
диана2399
01.03.2021 15:05 •
Информатика
Вычислить сумму 0+1+2+3+4++99 и определить сколько чисел просуммировано паскаль нужен текст проги со всеми var begin end итд делать через while
Показать ответ
Ответ:
GardenBrid
08.10.2020 17:18
N-кол-во, S-сумма
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nastiya320
22.06.2022 09:47
Информатика плз помпгите дам ...
ЕгороваАйсена
13.02.2022 17:22
1. Исправить ошибки. Дан целочисленный одномерный массив. Есть ли в нем отрицательный элемент? (8 ошибок). Program Школа; Const n=10; Var X: [1..n] Of Integer; i, k: real; Begin...
azik55
06.09.2022 07:13
Приведите пример информационной модели...
EvaMr
23.05.2021 00:02
Как создать сообщение на тему графические редакторы и создание таблиц в word...
juliagolub2015
07.11.2020 15:29
4. Составь диаграмму по среднемесячному количеству осадков ля станций Астана и Актобе. VII VIIT DX X XI XI Год 62 53 34 36 34 31 425 с в 35 35 32 Станспорт ІІ IV V VI Петропаsоscx...
zomarova003
13.09.2022 18:05
Моделирование процессов в электронных таблицах. Урок 3 Марату необходимо составить диаграмму распорядка своего дня. Он распределил свои 24 часа в табличной модели следующим...
vlad1446
19.01.2022 01:00
1 ненадо сделайте 2 3...
zukhra1234
27.09.2022 02:58
Bonpoc 11Результатомвычисления print (23 // 3) будетчисло:...
maxwinter095
10.05.2021 05:04
Вопрос 6 Имена переменных не могутвключать:Варианты ответовРусские буквыЛатинские буквыПробелыСкобки, знаки + = !?bдр.Цифры...
kristinka078
24.08.2020 04:48
Что будет в результате выполнения следующегоалгоритма программы:Входные данные:1545a = int(input())b = int(input())ifa 6 10 == 0 or b% 10 — 0:print( YES )else:print( NO )Варианты...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.