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

Question

Информатика

Лидия

14 января, 16:20

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

+3

Ответы (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.