Помогите, пожалуйста с задачей Паскаль.Даны два целых числа A и B

Помогите, пожалуйста с задачей Паскаль.Даны два целых числа A и B (Alt;B). Отыскать сумму квадратов всех целых чисел от A до B включительно.

Задать свой вопрос
Евреинова Татьяна
Задачка не дописана
2 ответа
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
    S:=S+B*B;
WriteLn('S = ',S);
End.
Виолетта Гомоляко
Цикл раскрывается по переменной В и верхний параметр В ? Почему S - real , когда характеристики цикла целые?
Светлана Сибирцева-Молчанова
1) И что? 2) Чтобы избежать переполнения
Var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт