Вопрос по информатике:
Помогите написать программу на паскале. СПАСИБО
Найти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.03.2016 21:45
- Информатика
- remove_red_eye 12544
- thumb_up 15
Ответы и объяснения 2
//Версия 3.3, сборка 1611
begin
var t: real;
var i:=1;
while true do
begin
t:=range(i,i+10).Select(x->x*x).Sum();
if (frac(sqrt(t))=0) then break;
inc(i);
end;
range(i,i+10).Println();
end.
- 25.03.2016 03:49
- thumb_up 24
i,n,s:integer;
begin
n:=1;
while true do begin
s:=0;
for i:=n to n+10 do s:=s+i*i;
if s=Sqr(Trunc(Sqrt(s))) then break;
n:=n+1
end;
Write('Сумма квадратов чисел на интервале [',n,';',n+10,'] = ');
Writeln(s,' = ',Trunc(Sqrt(s)),'^2')
end.
Результат
Сумма квадратов чисел на интервале [18;28] = 5929 = 77^2
- 26.03.2016 17:52
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.