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

Question

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

---

Answer 1

• 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
• writeln('Вечер');
• end;
• end.

Comments

Спасибо!