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

спасибо но я так решил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.

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

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

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.