Предмет: Информатика,
автор: nikitinroman22122004
Ребят, кто шарит паскаль, сделайте прогу плз
Приложения:
Ответы
Автор ответа:
0
program time;
var t: Integer;
begin
Write('Введите время (в часах): ');
ReadLn(t);
if (t>=0) and (t<6) then begin
WriteLn('Ночь');
end else if (t>=6) and (t<12) then begin
WriteLn('Утро');
end else if (t>=12) and (t<18) then begin
WriteLn('День');
end else if (t>=18) and (t<=24) then begin
WriteLn('Ночь');
end;
end.
var t: Integer;
begin
Write('Введите время (в часах): ');
ReadLn(t);
if (t>=0) and (t<6) then begin
WriteLn('Ночь');
end else if (t>=6) and (t<12) then begin
WriteLn('Утро');
end else if (t>=12) and (t<18) then begin
WriteLn('День');
end else if (t>=18) and (t<=24) then begin
WriteLn('Ночь');
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: anchelasapunko
Предмет: Математика,
автор: veronika34989
Предмет: Русский язык,
автор: nurgalievbolat1973
Предмет: Алгебра,
автор: MAPNHETT
var night := Arr(0, 1, 2, 3, 4, 5);
var morning := Arr(6, 7, 8, 9, 10, 11);
var day := Arr(12, 13, 14, 15, 16, 17);
var evening := Arr(18, 19, 20, 21, 22, 23);
var time := (24 + ReadInteger('t =') mod 24) mod 24;
Print(time in morning ? 'morning' :
time in night ? 'night' :
time in evening ? 'evening' :
'day')
end.