var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
1 ---> 15 1)+1 2)+2 3)+4
---------------------------------------
1 начало
2 1+1 1
3 1+2; 2+1 2
4 3+1; 2+2 3
5 1+4; 3+2; 4+1 6
6 5+1; 4+2;2+4 10
7 6+1;5+2;3+4 18
8 7+1;6+2;4+4 31
9 8+1;7+2;5+4 55
10 9+1;8+2;6+4 96
11 10+1;9+2;7+4 169
12 11+1;10+2;8+4 296
13 12+1;11+2;9+4 520
14 13+1;12+2;10+4 912
15 14+1; 13+3;11+4 1601 ответ 1601
var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
const
p = 3.14;
var
L, S:real;
begin
write('L = '); readln(L);
writeln('S = ', sqr (L / (2 * p)) * pi);
end.