<span>var a,b,s,p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b then begin a:=s; b:=p end
else begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end<span>.
Пример:
15 27
</span><span>a = 21.00 b = 405.00</span></span>
// PascalABC.NET 3.3
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
Сначала едут двое детей , один остается ,а второй едет обратно , от туда едет Муж , а первый ребёнок едет обратно , потом опять едут двое детей ,одни остается , второй возращается , от туда едет жена , а обратно второй ребенок и потом двое детей едут к родителям
1800БАЙТ=14400БИТ
СЛ. ЗА 1 СЕКУНДУ МОЖНО ПЕРЕДАТЬ ТЕКСТ ОБЬЕМОМ 1800 БАЙТ