Составьте программку для нахождения количества песчинок, содержащихся в n тонн песка,

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

Задать свой вопрос
Марина Вялиуллина
Т.е. ответ тоже обязан быть в виде диапазона?
Николай Аревикян
да
Сытько Дарина
язык программирования?
Степка Балабаненко
паскаль
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.

Леонид Усатюк
спасибо но я так решил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.
Allojarova Uljana
но у тебя получше даже, посерьезнее
Dmitrij Karichev
У Вас ошибка, Вы тонны на гр разделяете.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт