ПАСКАЛЬ АВС!!!Ввести три целых положительных числа a,b,c(c<a*b).Увеличить третье число в 2 раза до тех пор,пока оно не будет больше произведения двух других. Вывести на экран три числа)))) вторая задача на фотографии)
More Questions From This User See All
Answers & Comments
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);