Написать программу с постусловием Repeat для вычисления произведения двух чисел суммой

Question

Информатика

Лидия

20 апреля, 03:26

Написать программу с постусловием Repeat для вычисления произведения двух чисел суммой

+5

Ответы (1)

Знаете ответ на вопрос?

Давид · Answer 1

Program program1;

var

a, b, p: integer;

begin

write ('Введите два числа: ') ;

readln (a, b) ;

p : = 0;

repeat

p : = p + a;

b : = b - 1;

until (b = 0) ;

writeln (a, ' * ', b, ' = ', p) ;

end.