Question

ДАЮ 85 БАЛЛОВ Написать программы на Паскале 1) В модельное агентство принимаются девушки с ростом выше 170 см и весом меньше 58. Определите, подходит ли кандидат в модели по введенному весу и росту? В ответе вывести «Подходит» или «Не подходит». 2) Заниматься программированием мы будем по рабочим дням после 18 часов вечера. Введите номер дня недели и время в часах и определите, пришло ли время кодинга. В ответе вывести «Время кодить» или «Не время кодить :( »

Answer 1

Описание от меня: Устал писать...

Ответ:

import time

start = 0

try:

rost = int(input("Рост: "))

ves = int(input("Вес: "))

start = 1

except:

print("Перезайдите в код.")

if start == 1:

if rost >= 170:

if ves <= 58:

print("Вы подходите!")

time.sleep(5)

while 1:

time.sleep(0.2)

times = time.strftime("%H", time.localtime())

if times == "15":

print("\n"*80, "Время кодить")

else:

print("\n"*80, "Не время кодить :(")

else:

print("Вы не подходите!")

else:

print("Вы не подходите!")

else:

pass

Answer 2

Вот программы на языке Pascal для решения ваших задач:

1. Определение подходит ли кандидат в модели:

pascalCopy code
program ModelAgency;

var
  height, weight: integer;

begin
  writeln('Введите рост (в см): ');
  readln(height);

  writeln('Введите вес (в кг): ');
  readln(weight);

  if (height > 170) and (weight < 58) then
    writeln('Подходит')
  else
    writeln('Не подходит');

  readln;
end.

2. Определение времени для программирования:

pascalCopy code
program CodingTime;

var
  dayOfWeek, hour: integer;

begin
  writeln('Введите номер дня недели (1-7): ');
  readln(dayOfWeek);

  writeln('Введите время (в часах): ');
  readln(hour);

  if (dayOfWeek >= 1) and (dayOfWeek <= 5) and (hour >= 18) then
    writeln('Время кодить')
  else
    writeln('Не время кодить :( ');

  readln;
end.

Обратите внимание, что в обоих программах используется функция readln, которая позволяет пользователю ввести данные с клавиатуры. Вы можете скомпилировать и запустить эти программы в среде разработки Pascal, чтобы проверить их работоспособность.