Pascal.Составить программуНайти произведение N первых естественных чисел кратных 11

Pascal.
Составить программу
Отыскать творение N первых натуральных чисел кратных 11

Задать свой вопрос
1 ответ

var n,a,z:integer;

begin

 write('n= ');

 read (n);

 z:=1;

 for a:=1 to n do

   begin

     if (a mod 11 =0)

     then z:=z*a;

   end;  

 writeln(z);

end.

Вадим Скрибунов
Вы убеждены,что это верно?
Артём Ругаев
сейчас исправлю
Korenenkova Alina
Сможете ещё 1 решить?
Атанин Даниил
да
Анжелика Дели
наверняка
Песляк Руслан
спасибо. полагаюсь,что всё верно
Виктория Пероговская
да
Кельганов Колян
https://znanija.com/task/30208339 вот ссылка
Галина Баздрова
https://znanija.com/task/30208880 заключительную можете?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт