Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Логин и пароль отак )))))))))))))
Лишнее желудь
Так как на всём остальном писали в древности
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub