Помогите, пожалуйста с задачей:
Даны два целых числа A и B( A

Ответ учителя по предмету Информатика

Var

A,B:integer;

P:real;

Begin

P:=1;

Write(‘A = ‘);Read(A);

Write(‘B = ‘);Read(B);

For A:=A to B do

    P:=P*A;

WriteLn(P)

End.

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей