Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны три числа. Если их произведение меньше 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;