Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/34: Рейтинг темы: голосов - 34, средняя оценка - 4.50
CYPOK
46 / 1 / 0
Регистрация: 12.03.2010
Сообщений: 8
1

Найти сумму квадратов всех целых чисел от A до B включительно.

12.03.2010, 16:33. Просмотров 6249. Ответов 5
Метки нет (Все метки)

Sos студентов обижают решите плз двумя циклами for и while в одной программе эту на первый взгляд не сложную задачу буду очень благодарен великому мегомозгу

Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2010, 16:33
Ответы с готовыми решениями:

Найти сумму квадратов всех целых чисел от A до B включительно.
злой презлой информатик задал злую презлую задачу хелп плиз (сто пятьсот очков...

Найти сумму квадратов всех целых чисел от A до B включительно
Даны два целых числа A и B (A &lt; B). Найти сумму квадратов всех целых чисел от A...

Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно
Желательно сделать в Pascal или Delphi

Найти сумму всех целых чисел от A до B включительно
Написать программу с использование одного из циклов: 1. Даны два целых числа...

Найти сумму всех целых чисел, лежащих между 1 и N включительно.
Найти сумму всех целых чисел, лежащих между 1 и N включительно. Исходные...

5
MAcK
Комбайнёр
1572 / 670 / 77
Регистрация: 27.05.2008
Сообщений: 2,535
12.03.2010, 16:46 2
Pascal
1
2
3
4
5
6
While (Студентов_обижают = true) begin
  for i := a to b do begin
    Sum := Sum + sqr(i);
  end;
end;
writeln (Sum);
1
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
12.03.2010, 17:32 3
CYPOK, а это обязательно давать темам дебильные названия ?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const
  a = 1;
  b = 4;
var
  sum,i: longint;
begin
  sum := 0;
  for i := a to b do
    Inc(sum, i*i);
  WriteLn('Result: ', sum);
  ReadLn
end.
0
WolfCF
12.03.2010, 17:33
  #4

Не по теме:

Inadequate, ты мегамозг теперь зато:D

0
gromil
2 / 2 / 4
Регистрация: 26.12.2009
Сообщений: 70
13.03.2010, 00:08 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,b,s:longint;
begin
s:=0;
readln(a,b);
i:=a;
while i<=b do
begin
s:=s+i*i;
inc(I);
end;
write(s); {полученная сумма}
readln
end.
1
Vovan-VE
13157 / 6541 / 1038
Регистрация: 10.01.2008
Сообщений: 15,070
13.03.2010, 11:11 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a, b, i:Integer;
begin
    write('a=');
    readln(a);
    write('b=');
    readln(b);
    for i := a to b do write(i*i, '  ');
    writeln;
    i := a;
    while i <= b do begin
        write(i*i, '  ');
        inc(i);
    end;
    writeln;
end;
1
13.03.2010, 11:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2010, 11:11

Найти сумму квадратов всех целых чисел от А до 50
Найти сумму квадратов всех целых чисел от А до 50 (значение А вводится с...

Найти сумму квадратов всех целых чисел от 1 до n
Здравствуйте. Не смог решить вот эту задачу: 2.Цикл с параметром. 2.2...

Циклы. Найти произведение всех целых чисел от A до B включительно
Даны два целых числа A и B (A &lt; B). Найти произведение всех целых чисел от A до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru