//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
Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
Var i:integer;
begin
for i:=10 to 99 do
if (i mod 7=0) then writeln(i);
end.
при n=
1) * 5 (начало)
2) * 3 (n-2=5-3=2)
3) * 1 (n-2=3-2=1)
4) * -1 (n-2=1-2=-1)
5) * 0 (n div 2 =-1 div 2 =0)
6) * 0 (n div 2 =1 div 2 =0)
7) * 1 (n div 2 =3 div 2=1)
8) * -1 (n-2=1-2=-1) ранее была такая ситуация, далее два 0
9) * 0
10) * 0
11) * 1
12) * -1
13) * 0
14) * 0
---------------------------------------------------
15) * (n=5 div 2 =2)
16) * (n=2-2=0)
17)* (n=2 div 2=1)
18) * (n=1-2=-1)
19) * (n=0)
20) * (n=0)
21) * (n=1)
22) * (n=-1)
23) * (n=0)
24) * (n=0)
-------------------------------------------------------
и ещё раз 10 при второй F(n div 2)
ВСЕГО 34 звёздочки *