Задача на оператор for

@Nikaprio · Регистрация: 08.06.2021

Author24 — интернет-сервис помощи студентам

Напишите программу вычисления значения выражения:
y=((...(20^2 - 19^2)^2 - 18^2)^2 - ... - 1^2)^2

@udmurt2024 · 08.10.2024, 14:19

Pascal

var y,i:integer;
begin
  y:=20*20;
  for i:=19 downto 1 do
  begin
    y:=y-i*i;
    y:=y*y;
  end;
  writeln(y);
end.

agvego5 · 08.10.2024, 14:34

Сообщение от Nikaprio

GraphABC

для какой цели заголовок GraphABC?

Сообщение от udmurt2024

var y,i:integer;

первую строку можно убрать:

Pascal

begin
var y:=20*20;
  for var i:=19 downto 1 do
  begin
    y:=y-i*i;
    y:=y*y;
  end;
  writeln(y);
end.

@udmurt2024 · 08.10.2024, 15:14

Сообщение от Nikaprio

y=((...(20^2 - 19^2)^2 - 18^2)^2 - ... - 1^2)^2

это точно?

Pascal

var y:double;
    a,i:integer;
begin
  a:=20;
  y:=a*a;
  for i:=a-1 downto 1 do
  begin
    y:=y-i*i;
    y:=y*y;
    writeln(y);
  end;
  //writeln(y);
end.

@Sun Serega · 08.10.2024, 18:14

udmurt2024, real тут тоже не подходит. Кроме потери точности, даже его диапазона не хватает.
Надо использовать BigInteger, который умеет использовать произвольный объём памяти:

Pascal

##
var y := 20bi ** 2;
for var i := 19 to 1 step -1 do
begin
  y -= i*i;
  y *= y;
//  y.Println;
end;
$'Done'.println;
$'Found a number with {Ceil(BigInteger.Log10(y))} digits:'.Println;
y.Println;

Получается число с 806893 цифрами...
Наверное действительно что то не так с тем как задачу переписали...

Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ. Hrethgir 28.01.2025 Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .	[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .

@Nikaprio 0 / 0 / 0 Регистрация: 08.06.2021 Сообщений: 8
		1
	GraphABC Задача на оператор for 08.10.2024, 14:08. Показов 284. Ответов 4 Метки нет (Все метки) Напишите программу вычисления значения выражения: y=((...(20^2 - 19^2)^2 - 18^2)^2 - ... - 1^2)^2 0

	08.10.2024, 18:14