//ToWords разделяет строку с помощью разделителя (пробел по
//умолчанию) и возвращает массив строк.
var
b: string;
strings: array of string;
begin
readln(b);
strings := b.ToWords(' ');
for var i := 0 to length(strings) - 1 do
writeln(strings[i]);
end.
//Пример:
//Ввод:
q wer ty
//Вывод:
q
wer
ty
А) Панель инструментов, рабочее поле, шкала времени, панель свойства
б) Инструмент используется для заливки всего текста или определённой области
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц
Если значение x записано в ячейке A1, то формула будет такой:
=ЕСЛИ(A1<=0;A1*EXP(A1);ЕСЛИ(A1<=2;EXP(A1);A1*EXP(-A1)))
Var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
else min:=b;
writeln('Min - ',min);
<span>end.</span>