Решаем задачи Абрамян на Паскале. For8

For8. Даны два целых числа $$A$$ и $$B$$ ($$A < B$$). Найти произведение всех целых чисел от $$A$$ до $$B$$ включительно.

Решение:

program For8;
var
A,B,Rez,  i:Integer;

begin
 Write('Введите A: ');
 Readln(A);
 Write('Введите B: ');
 Readln(B);
 rez:=1;
 For i:=A  to B do Rez:=Rez*i;
 Writeln(Rez);
end.

program For8;

var

A,B,Rez, i:Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите B: ');

Readln(B);

rez:=1;

For i:=A to B do Rez:=Rez*i;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For8

Комментарии:

Добавить комментарий Отменить ответ