ПАСКАЛЬ. Найти сумму квадратов всех целых чисел от 10 до в

ПАСКАЛЬ. Найти сумму квадратов всех целых чисел от 10 до в (значение в вводится с клавиатуры; вlt;10)

Задать свой вопрос
Нелли Каблучко
От 10 либо -10?
Alena Sarcheva
Будет от 10...
1 ответ

var i,B,s:integer;

begin

write('Введите число B: ');

readln (B);

for i:=10 downto B do s:=s+i*i;

writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт