Составьте программу. Из 18 т. железной руды выплавляют 10 т. железа. Сколько железа...

Question

Составьте программу.
Из 18 т. железной руды выплавляют 10 т. железа. Сколько железа выплавят из А т. руды?

Answer 1

Var
a,b,e:real;
begin
b:=1.8;
write('Введите количество руды - ');
read(a);e:=a/b;
//e:=Round(e);
writeln('Из ',a,'кг руды получится ',e,'кг железа.');
end.

Тут числа так себе получаются Если что убери "//" тогда число округляться будет.