Диаметр колеса автомобиля 80 см,колесо потребует замены через 200000 оборотов.Написать...

Question

Диаметр колеса автомобиля 80 см,колесо потребует замены через 200000 оборотов.Написать алгоритм определяющий доедет ли колесо от москвы до города эмска

Answer 1

1)
var
n,m:longint;
mem:double;
begin
write('Введите минуты и секунды песни: ');readln(n,m);
mem:=(n*60+m)*16/1024;
if(mem>6)then writeln('Не хватает: ',6-mem,' МБ')
else writeln('Места хватает');
end.
2)
var
dl:double;
x:longint;
begin
write('Введите расстояние: ');readln(x);
x:=x*100000;
dl:=80*3.14;
if(x/dl>200000)then writeln('Не доедет')
else writeln('Доедет');
end.