Question

ПАСКАЛЬ АВС!!!Ввести три целых положительных числа a,b,c(c<a*b).Увеличить третье число в 2 раза до тех пор,пока оно не будет больше произведения двух других. Вывести на экран три числа)))) вторая задача на фотографии)

Answer 1

Uses crt;
var a,b,c : integer;

begin
writeln('Введите a (c<a*b)');
readln(a);
writeln('Введите b (c<a*b)');
readln(a);
writeln('Введите c (c<a*b)');
readln(a);

repeat
c = c*2;
until c > a*b;

writeln(a,b,c);