Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
linagalkinaa
07.04.2020 13:25 •
Информатика
Составьте программу вычисления произведения s=1*2+3*4+5*6++101*102 (в паскале)
Показать ответ
Ответ:
0909044
05.10.2020 07:06
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Elizaveta8614
14.11.2021 23:10
Запиши развёрнутую запись числа 0,934 для дробной части числа....
Vens12
02.07.2022 19:27
Изучи предложенные изображения и определи номер порта соответствующего датчика, если значение- положиткльное число. Повороты. Урок 1...
lesnichka1980
16.05.2023 20:36
Составьте программу для вычисления площади трапеции при известных основаниях и высоте....
ixnivoodoo
07.10.2021 17:46
Дати визначення грунтам та назвати типи?...
miryayatatianap08x2w
26.04.2023 04:02
1) The thief a wallet last week. 2) Students brought their notebooks last monday. 3) My sister won two competitions last year. 4) The company will employ new staff...
Виталина5413
19.01.2022 11:58
3. 1) ответьте на вопросы, используя предложения со значением времени. 1. Когда были найдены развалины храма Посейдона?...
Ксения80200
04.02.2023 10:03
При копировании формулы =B2 + $A$1 из ячейки A2 в ячейку B3 примет вид: 1. D3+$A$1 2. C3+$A$1 3. C3+$A$1 4. C3+A3...
milkovvich
25.04.2021 09:32
Жергілікті журналға «Қазақстанда халық санының артуы маңызды ма, әлде бұл проблемаға алып келе ме?» деген тақырыпта өз пікіріңізді жазыңыз. Жазба жұмысыңызда түсіндірмелі,...
NurseRedheart
22.06.2020 06:39
Берілген сөйлемің перефразасын анықта. Қазірде елемізге кой үстіне бозторгай жұмыртқалаған заман келдіЕлімізде тыныш, бейбіт өмір орнадыҚазақ елі қой өсірумен айналысадыДалада...
tatianalednewa
26.12.2021 03:36
Заполнить таблицу «Позиции ведущих держав в Восточном вопросе» Ведущие державы/территориальные интересы в «Восточном вопросе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.