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.