Question

Составьте программу для нахождения количества песчинок, содержащихся в n тонн песка, считая, что масса каждой песчинки составляет m граммов (0.001 <= m <= 0.005).

Answer 1

const
  m1:double=1e-9; { масса песчинки в тоннах }
  m2:double=5e-9;
var
  m:double;
  k1,k2:longint;
begin
  Write('Введите массу песка в тоннах: '); Readln(m);
  k1:=Trunc(m/m1);
  k2:=Trunc(m/m2);
  Writeln('Количество песчинок составляет от ',k2,' до ',k1)
end.

Answer 2

спасибо но я так решил
uses
crt;

var
a, b, c: real;

begin
writeln('Введите колличество песка в тоннах: ');
readln(a);
b := a / 0.001;
c := a / 0.005;
writeln('Колличество песчинок ', a, 'тонн песка от ', b, ' до ', c);
readln;
end.

Answer 3

но у тебя получше даже, посерьезнее

Answer 4

У Вас ошибка, Вы тонны на граммы делите.