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

Question

Информатика

Людуся

17 сентября, 23:29

Написать программу с постусловием 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.