var hour: integer;
minute: string;
begin
writeln('Введите время суток');
read(hour,minute);
if (hour>=6) and (hour<12) then writeln('Доброе утро');
if (hour>=12) and (hour<18) then writeln('Доброго дня');
if (hour>=18) and (hour<00) then writeln ('Доброго вечера');
if (hour>=00) and (hour<6) then writeln ('Спокойной ночи');
end.
Тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке
Агрегирование и синдикация информации; наполнение сайта; дизайн
var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
var s:=ReadAllLines('1.txt');
Writeln('Считано:'); s.Println(NewLine);
var a:=s.Select(x->x.Replace(';',' ')).ToArray
.JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0))
.Select(x->Trunc(x)).ToArray;
Writeln('Получено:'); a.Println();
Writeln('Справочно: тип А - ',a.GetType);
end.
<u><em>Тестовое решение</em></u>
Считано:
1;-312;-41.11;412.11
43.63;-15;27;7.62;3;-14
1342;23.23;-32.19;18
Получено:
1 27 3 1342 18
Справочно: тип А - System.Int32[]
<u>Тестовый файл 1.txt дан во вложении.</u>