Вопрос по информатике:
Всем привет.
Прошу помогите с этими 2 задачами.
С клавиатуры вводится натуральное число n. Найти сумму n2 + (n+1)2 + ... + (n+n)2.
Найти сумму квадратов всех целых чисел от a до b (a и b вводятся с клавиатуры; b ≥ a).
Помогите их сделать на PascalABC через функцию.
Заранее спасибо!
- 28.08.2018 00:00
- Информатика
- remove_red_eye 19710
- thumb_up 38
Ответы и объяснения 1
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355
- 28.08.2018 15:49
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.