Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
missmarial2010
04.03.2023 12:42 •
Информатика
Составьте программу вычисления произведения s=1*2+3*4+5*6++101*102 (в паскале)
Показать ответ
Ответ:
titarenko1953
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 оценок)
Популярные вопросы: Информатика
blazhenko66
02.12.2022 09:37
Написать программу,которая содержит 90 элементов массива,заполненных случайным образом.Диапазон значений [0;5].Подсчитать количество элементов,у которых значение 3....
LiksiGalaxy
05.12.2020 03:03
Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию с...
саша10041
27.10.2020 18:37
Напишите программу,которая преобразует строку,содержащую фамилию,имя и отчество человека,к форме инициалы фамилия С плюс...
leraloslerap00mm6
19.03.2021 19:33
Написать программу для вычисления функции f=x4+x3-x2-10. ...
123654789e
18.02.2022 03:53
Составить программу нахождения произведения F = 52 ∙ 62 ∙ 72 ∙ … ∙ 102 на языке Pascal. Для вычисления квадрата числа можно использовать функцию sqr...
1mizik1
05.05.2023 01:14
X^2+x+1=0 решите по информатике...
Про100карина666
02.02.2023 23:44
сделать блок схему по данным заданиям (язык Паскаль)...
feruzbek214
05.08.2020 19:10
Решите 8•(а-35)=208,180: (х-12)=20...
matvirucom80
05.08.2020 19:10
Сочинение «українське село часів шевченка й село xxi століття – причини трагічного занепаду? »....
mariaa987
05.08.2020 19:10
Нужно из учебника выписать понятия параграф 1.3 это 7 класс ! )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.