Решаем задачи Абрамян на Паскале. For14

For14. Дано целое число $N$ ( $> 0$ ). Найти квадрат данного числа, используя для его вычисления следующую формулу: $N^2 = 1 + 3 + 5 + … + (2*N — 1)$ . После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до $N$ ).

Решение:

program For14;

var

N,Rez, i :Integer;

begin

Write('Введите N: ');

Readln(N);

rez:=0;

For i:=1 to N do

begin

Rez:=Rez+(2*i-1);

Writeln(Rez);

end;

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 2

Кирилл

11.12.2014 в 21:45

Delphi/Pascal

uses PT4; var n,i,rez:integer; begin Task('For14'); read(n); for i:=1 to n do begin rez:=sqr(i); write(rez); end; end.

1
2
3
4
5
6
7
8
9
10
11

uses PT4;
var n,i,rez:integer;
begin
  Task('For14');
read(n);
for i:=1 to n do
   begin
      rez:=sqr(i);
      write(rez);
   end;
end.

Ответить
- Anton
  
  12.12.2014 в 14:22
  
  Ты не используешь ту форму… а эмулируешь для пользователя её использование, что как бы не соответствует условию. 🙂
  
  Ответить

Решаем задачи Абрамян на Паскале. For14

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ