Processing math: 100%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. 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 можно посмотреть здесь.

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

➤