Деревья и Цветы распускаются в разное время.Это зависит от того когда весна придет.То есть получается то что деревья и цветы могут распустится и в Апреле,и в Мае,и даже иногда в Марте.
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223
Var s,s1,s2:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
writeln('Строка без пробелов:');
writeln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];
writeln('Строка с пробелами после ".":');
writeln(s2);
end.
Пример:
Введите строку:
1. 2. 3. 4. 5. Вышел зайчик. Погулять.
Строка без пробелов:
1.2.3.4.5.Вышелзайчик.Погулять.
Строка с пробелами после ".":
1. 2. 3. 4. 5. Вышелзайчик. Погулять.