Question

Решите к уроку информатики !!!

Answer 1

Ответ:

готово

Объяснение:

1)

program massiv;

var

 i, N: integer;

begin

 Write('Введите количество чисел: ');

 ReadLn(N);

 for i := 1 to N do

   WriteLn(i);

end.

2)

program squares;

var

 i, N: integer;

begin

 Write('Введите количество чисел: ');

 ReadLn(N);

 for i := 1 to N do

   WriteLn(sqr(i));

end.

3)

program summa;

var

 i, N, sum: integer;

begin

 Write('Введите количество чисел: ');

 ReadLn(N);

 for i := 1 to N do

   if (i mod 2 = 0) then sum := sum + i;

 WriteLn('Сумма четных чисел равна ', sum);

end.