• PascalABCD
    Вообще не понимаю, помогите с домашней работой

    question img

Ответы 2

  • Спасибо!
    • Автор:

      juliorios
    • 6 лет назад
    • 0
    • program paskal;
    • var t:integer;
    • begin
    • writeln('Введите время в часах:');
    • readln(t);
    • if (t >= 0) and (t < 6) then begin
    • writeln('Ночь');
    • end;
    • if (t >= 6) and (t < 12) then begin
    • writeln('Утро');
    • end;
    • if (t >= 12) and (t < 18) then begin
    • writeln('День');
    • end;
    • if (t >= 18) and (t <= 24) then begin
    • writeln('Вечер');
    • end;
    • end.
    • Автор:

      mckenzie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years