Найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b> =-10 .
238
241
Ответы на вопрос:
var b,i,sum,sq: integer;
begin
readln (b);
for i: =-10 to b do
begin
sq: =sqr(i);
sum: =sum+sq;
end;
writeln (sum);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
gre4g3g423.02.2023 19:22
-
loopootoonoo11.04.2020 06:21
-
thanksagainand25.01.2023 17:10
-
ayvazyanloxq37n07.01.2020 19:53
-
сасискакопчёная20.03.2023 02:53
-
Irinad2730.01.2022 17:01
-
дэн24731.01.2021 21:18
-
VASEK19191108.06.2023 01:58
-
yaroslavus26.05.2022 11:29
-
erro1402.07.2022 06:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.