ПАСКАЛЬ АВС!!!Ввести три целых положительных числа a,b,c(c<a*b).Увеличить третье число в...

Question

ПАСКАЛЬ АВС!!!Ввести три целых положительных числа a,b,c(c

Answer 1

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

begin
writeln('Введите a (creadln(a);
writeln('Введите b (creadln(a);
writeln('Введите c (creadln(a);

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

writeln(a,b,c);