Pascal.abc Задача 1: Распечатать первые 16 ступеней 2. (для переменной

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

Задать свой вопрос
Koljan Habatov
необходимо 3 программы либо одна исполняющая все задачи?
Громыхин Олег
3 программки
Есения Этинген
теснее 4 задачки
1 ответ

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 lt; 0 then o += 1 else if a gt; 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.

Virjukina Sofija
спасибо,а можно немножко разъяснить как работает 3 программка.
Мирослава Казьмичева
вводится число n, потом все числа от 1 до n складываются. s += i это то же что s:=s+1. s при объявлении одинаково 0. если ввести n=3 то получим s одинаковое 0+1+2+3=6
Амина Шубеничева
опечатка: s += i это то же что s:=s+i
Максим Муллояров
спасибо большое.
Antonina Dzhabko
и снова привет я теснее задал один и тот же вопрос 3 раза
Андрей Чхиквадзе
21 балл для тебя упадет суммарно
Полинка
не?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт