Сделайте программу по информатике, пожалуйста. Очень срочно
Нет комментариев
Ответы
Гость Program katrinzaytc;
Var
speed, distance, o: real;
Begin
writeln('Введите скорость автомобиля (км): ');
readln(speed);
writeln('Введите расстояние, которое вам нужно пересечь (км): ');
readln(distance);
if speed > 50 then
begin
o := 1 * (distance / 20);
end
else
begin
o := 1 * (distance / 30);
end;
writeln('Колличестов литров бинзина, расходуемое на путешестивие = ', o:0:3);
end.
Нет комментариев
Похожие вопросы
Информатика
1. Сколько кодов может быть создан из 7 бит?...
Информатика
Номер 2 ..Помогите плиз...
Информатика
Помогите решить!!! 5 задание...
Список предметов
