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

опечатка: s += i это то же что s:=s+i

Answer 3

спасибо большое.

Answer 4

и снова привет я уже задал один и тот же вопрос 3 раза

Answer 5

21 балл тебе упадет суммарно

Answer 6

не?