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 и минуты вводить на новой строке
A = «Число 22 — чётное число» true (истина)
B =«Волк — травоядное животное» false (ложь)
Значения логического типа boolean занимают 1 байт и принимают одно из двух значений, задаваемых предопределенными константами True (истина) и False (ложь).
Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var m := ArrRandomReal(5, 1, 10); // автоматический ввод данных
Println(m);
Println(m.Aggregate(1.0, (x, y)-> x * y));
end.
2^x=256 => x=8
Производим необходимые расчёты: 2^8 * 2^8 / 1024 = 64 килобайт