Программа реализована в Microsoft Word
<u><em>1. Типовой "школьный" вариант</em></u>
// PascalABC.NET 3.0, сборка 1076
var
s,a1,a2,a3:string;
p:integer;
begin
s:='22 33 444';
p:=Pos(' ',s);
a1:=Copy(s,1,p-1);
Delete(s,1,p);
p:=Pos(' ',s);
a2:=Copy(s,1,p-1);
Delete(s,1,p);
a3:=s;
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<em><u>2."Современный" вариант</u></em>
// PascalABC.NET 3.0, сборка 1076
begin
var s:='22 33 444';
var m:=s.ToWords;
var a1:=m[0];
var a2:=m[1];
var a3:=m[2];
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<span>Количество битов на один пиксель</span>
Ну тут я думая однозначно человек))
С клавиатуры вводится вещественное число. Если число, которое введено, меньше нуля, (т.е отрицательное), то на экран выводится текст "Отрицательное число", в противном случае (т.е при вводе числа больше или равного нулю) на экран выводится сообщение "Положительное число"