Большой и маленький орехи разделить на пополам. 2 половины (большого и маленького орехов) отдать Малышу, а оставшиеся половины отдать Карлсону.
program pr;
var
a,b:integer;
begin
readln(a,b);
while(a<=b) do readln(a,b);
writeln(0.5*a*b,', ',a+b+sqrt(a*a+b*b));
end.
Var m,h:integer;
f1,f2,f3:text;
begin
write('m: ');
readln(m);
write('h: ');
readln(h);
assign(f1,'A.txt');
rewrite(f1);
var a:=ArrRandom(10,1,56);
writeln(f1,a);
close(f1);
assign(f2,'B.txt');
rewrite(f2);
var b:=a.Where(x -> x mod m = 0);
writeln(f2,b);
close(f2) ;
assign(f3,'C.txt');
rewrite(f3);
var c:=a.Where(x -> x mod h = 0);
writeln(f3,c);
close(f3) ;
end.
Пример
m: 5
h: 4
A - [35,51,39,41,16,36,28,20,39,23]
B - [35,20]
C - [16,36,28,20]
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('n='),-200,200); x.Println;
var min:=x.Min; Writeln('Минимальный элемент ',min);
Writeln('A = ',(x.Where(t->t<100).Sum)/Sin(min))
end.
<u>Пример</u>
n= 13
44 51 41 -154 -169 -100 169 113 183 198 -183 136 58
Минимальный элемент -183
A = 581.362198263188
1) a:=10
2) a:=12
3) a:=3
4) a:=22
5) a:=15
6) a:=34
7) a:= 3