Решаем задачи Абрамян на Паскале. 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.

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

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