Главная » Статьи » Задачи по программированию

Возведение в квадрат без операции умножения.
Квадрат любого натурального числа N равен сумме N первых нечетных чисел:

Основываясь на данном свойстве, составим программу,позволяющую напечатать квадраты натуральных чисел от 1 до N.

Program KvadraT;
 var n(*Исходное данное*),a(*нечетное*),K(*Квадрат*),c:integer;
 begin
  read(n);
  a:=1; k:=0;
  for c:=1 to n do
 begin
  k:=k+a;
  writeln(c,'->',k);
  a:=a+2;
 end;
end.

Категория: Задачи по программированию | Добавил: shypuk (14.08.2012)
Просмотров: 5431 | Теги: delphi, Pascal | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]