
Записать в паскале Мышонок Джерри улепетывает к своей норке до которой X метров. Успеет ли кот
Том догнать Джерри у норки, если ему до нее Y метров?

Ответы на вопрос

PascalABC.NET
begin
var (x,y) := readinteger2;
Writeln('Мышонок Джерри улепетывает к своей норке до которой ',x, ' метров');
Writeln('Успеет ли кот Том догнать Джерри у норки, если ему до нее ',y,' метров?');
Writeln(x>y?'да':'нет');
end. // я так и не понял это ли надо было сделать...



Могу предложить такое решение, с вводом дистанции и скорости жертвы и охотника.
Python 3.7: https://ideone.com/EPyX5i
MouseSp= int(input("Mouse Speed = \n"))
CatSp= int(input("Cat Speed = \n"))
MouseDist= int(input("Mouse Distance = \n"))
CatDist= int(input("Cat Distance = \n"))
if(MouseDist/MouseSp < CatDist/CatSp):
print("\nMouse is still alive...")
else:
print("\nMouse has been teared to pieces by a cat...")



Для того чтобы определить, успеет ли кот Том догнать Мышонка Джерри у его норки, нужно сравнить расстояния, которые они преодолевают. Предположим, что Мышонок Джерри бежит к своей норке, а кот Том пытается его догнать.
Дано:
- Расстояние до норки Мышонка Джерри (X) в метрах.
- Расстояние, которое может пробежать кот Том (Y) в метрах.
Если расстояние до норки Джерри (X) меньше или равно расстоянию, которое может пробежать кот Том (Y), то кот Том сможет догнать Мышонка Джерри у норки.
В паскале это можно записать следующим образом:
pascalprogram CanTomCatchJerry; var X, Y: Integer; begin // Ввод расстояния до норки Джерри (X) и расстояния, которое пробежит кот Том (Y) writeln('Введите расстояние до норки Джерри (X): '); readln(X); writeln('Введите расстояние, которое пробежит кот Том (Y): '); readln(Y); // Проверяем, может ли кот Том догнать Джерри у норки if X <= Y then writeln('Кот Том догонит Мышонка Джерри у норки.') else writeln('Кот Том не догонит Мышонка Джерри у норки.'); end.
Пользователю будет предложено ввести значения для X и Y, и программа выдаст результат о том, догонит ли кот Том Мышонка Джерри у его норки.


Похожие вопросы
Топ вопросов за вчера в категории Информатика









Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili