Даны три числа. Если их произведение меньше 50, то числа увеличить в 10 раз. Составить программу в Delphi
Даны три числа. Если их произведение меньше 50, то числа увеличить в 10 раз. Составить программу в Delphi
Гость
Ответ(ы) на вопрос:
Гостьa:=strtofloat(edit1.text);
b:=strtofloat(edit1.text);
c:=strtofloat(edit1.text);
d:=a*b*c;
if d<50 then
begin
a:=a*10;
Не нашли ответ?
Похожие вопросы