Найти сумму квадратов всех целых чисел от -10 до b

36

Найти сумму квадратов всех целых чисел от -10 до b (значение b вводится с клавиатуры b>=-10 ПОМОГИТЕ СРОЧНО. ПЛИИЗ!

категория: информатика

ответить

в избранное

71

luporev

03 августа 2022

var b,i,sum,sq: integer; beginreadln (b); for i: =-10 to b dobeginsq: =sqr (i); sum: =sum+sq; end; writeln (sum); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Объясните, что надо сделать. Я вставила диск в компьютер (мультик)

Помогите пожалуйста с решением и с объяснением: Квадрат заданного трехзначного числа равен кубу суммы цифр этогочисла

Дано трехзначное число. Определить, что оно четно

Вася, Илья, Коля, Никита и Петя решали задачи по информатике. Всего было 5 задач

Вычислите значение переменной Y после выполнения фрагмента программы int r=35%10, y; if (r=0) y=r*10; if

Дано действительное число P- периметр равностороннего треугольника

Программа сортировки по возрастанию значений в трех переменных: а, в, с. Помогитепожалуйста

Какой тип переменной необходим для хранения числа 3,7

Помогите, пожалуйста, написать программу в Паскале… Дан массив. Уменьшить все его элементы на числоa

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...