Question

Pascal.abc Задача 1: Распечатать первые 16 степеней 2. (для переменной использовать тип longint). Задание 2: Пользователь вводит 10 чисел. Создать счетчики, и подсчитать сколько чисел положительные, отрицательные, равные нулю. Задание 3: Пользователь вводит число n. Вывести сумму первых n целых чисел. - ДОПОЛНЕНИЕ: Все задачи на цикл for

Answer 1

первая

var

   a : longint := 2;

   

begin

   write('первые 16 степеней числа ', 2,' : ');

   for var i := 1 to 16 do begin

       a *= 2;

       write(a, ' ');

   end;

end.

втрая

var

   a, p, o, n : integer;

   

begin

   write('введите 10 чисел : ');

   for var i := 1 to 10 do begin

       read(a);

       if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;

   end;

   writeln('положительных = ', p);

   writeln('отрицательных = ', o);

   writeln('нулю = ', n);

end.

третья

var

   n, s : integer;

   

begin

   write('введите n=');

   readln(n);

   for var i := 1 to n do s += i;

   writeln('сумма чисел s=', s);

end.

Answer 2

Задача 1: Распечатать первые 16 степеней 2 (для переменной использовать тип longint):

pascalCopy code
program Task1;
var
  i: integer;
  powerOfTwo: longint;
begin
  powerOfTwo := 1;
  for i := 0 to 15 do
  begin
    writeln('2 в степени ', i, ' = ', powerOfTwo);
    powerOfTwo := powerOfTwo * 2;
  end;
end.

Задача 2: Пользователь вводит 10 чисел. Создать счетчики и подсчитать, сколько чисел положительные, отрицательные и равные нулю:

pascalCopy code
program Task2;
var
  i, num, positiveCount, negativeCount, zeroCount: integer;
begin
  positiveCount := 0;
  negativeCount := 0;
  zeroCount := 0;

  for i := 1 to 10 do
  begin
    write('Введите число ', i, ': ');
    readln(num);

    if num > 0 then
      positiveCount := positiveCount + 1
    else if num < 0 then
      negativeCount := negativeCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество отрицательных чисел: ', negativeCount);
  writeln('Количество нулей: ', zeroCount);
end.

Задача 3: Пользователь вводит число n. Вывести сумму первых n целых чисел:

pascalCopy code
program Task3;
var
  n, i, sum: integer;
begin
  write('Введите число n: ');
  readln(n);

  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;

  writeln('Сумма первых ', n, ' целых чисел: ', sum);
end.

Это решение для каждой задачи использует цикл for, как требуется в дополнении.