Procedure...
var a, b, c, s: real;
begin
a:= strtofloat(edit1.text);
b:= strtofloat(edit2.text);
c:= strtofloat(edit3.text);
s:= (a + b + c)/3;
edit4.text:= floattostr(s);
end;
Поделитесь своими знаниями, ответьте на вопрос:
Написати алгоритм алгоритмічною мовою визначення середнього арифметичного трьох чисел
Procedure...
var a, b, c, s: real;
begin
a:= strtofloat(edit1.text);
b:= strtofloat(edit2.text);
c:= strtofloat(edit3.text);
s:= (a + b + c)/3;
edit4.text:= floattostr(s);
end;