Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Саша11111111111уу
31.03.2022 12:37 •
Информатика
Сциклом пока и до: программа паскаль вычислить сумму первых 10 натуральных чисел?
Ответ:
Ymnushca
03.07.2020 09:48
Var a,x:integer;
begin
a:=0;
while a<=10 do
begin
a:=a+1;
x:=x+a;
end;
writeln(x);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Koki2006
16.10.2022 03:16
Що таке запит, його види? ...
sashaaaa5
03.08.2021 05:28
Трассировка алгоритма. Урок 1Кто знает...
vadim2556
11.03.2021 15:50
ПАСКАЛЬ. Найти количество значений меньших числа А в матрице (двухмерный массив), что задает пользователь....
TruckThorEast
26.05.2022 20:55
Результат выполнения данной программы...
g2004
31.01.2020 14:34
Что будет результатом виконання данной программы ?...
StasKras01
08.04.2020 23:06
Результат выполнения данной программы...
makarovanasta201
19.09.2022 20:31
Контрольная работа по информатике. Найдите конечное значение а. ...
lenaguceva
02.02.2020 21:00
Составьте программу питон вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга(два варианта: с процедурой...
Ggggggghhhj
15.05.2021 05:37
Составьте программу, проверяющую, верно ли утверждение, что введеное вами целое число делится без остатка на 3....
ЛАПУЛЛЯ
26.05.2021 22:07
Какие поезда будут соответствовать следующим запросам: а) стоянка 30 б) куда = ”москва” в) откуда= «н.тагил» г) время прибытия 12: 00 д) время отправления =05: 43...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
a:=0;
while a<=10 do
begin
a:=a+1;
x:=x+a;
end;
writeln(x);
end.