PASCAL. Юзер вводит два натуральных числа. Вычислить творенье введённых чисел,

PASCAL. Юзер вводит два естественных числа. Вычислить творение введённых чисел, используя только операции сложения и вычитания. ( задание необходимо сделать в Pascal'е, кодом). Спасибо!

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

var

   x, y, sum:integer;

begin

   write('x: ');

   readln(x);

   write('y: ');

   readln(y);

   sum:= 0;

   while y gt; 0 do

   begin

       sum := sum + x;

       y := y - 1;

   end;

   writeln(sum);

end.


, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт