Отыскать творенье натуральных чисел от 1 до 50, кратных 7. Решить

Найти творение естественных чисел от 1 до 50, кратных 7. Решить эту задачу с внедрением всех 3-х видов циклов.

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

Ответ:

Разъяснение:

program mod7;

var

i:integer;

p:int64;

begin

p:=1;

for i:=1 to 50 do

if i mod 7=0 then p:=p*i;

writeln('Цикл  for. p=',p);

///////////////////////////

p:=1; i:=1;

while ilt;=50 do begin

if i mod 7=0 then p:=p*i;

i:=i+1;

end;

writeln('Цикл while. p=',p);

/////////////////////////////

i:=1;p:=1;

repeat

 if i mod 7=0 then p:=p*i;

 i:=i+1;

until igt;50;

writeln('Цикл repeat. p=',p);

readln;

end.

Илюха Шилин
Огромное спасибо! :)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт