<span>2626 +
2618 +
2624 +
2628 - возрастание
2826 - </span>максимальное число от сложения трех цифр не м.б. > 27<span>
2426 - возрастание
1826 - </span>возрастание<span>
106 +
ответ: 4</span>
Я включил компьютер и набрал на клавиатуре сочинение про свою семью. Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру, быстро двигая мышью. Получив рекордный результат, я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов.
Const m=7;
var
a:array of array of integer;
ans:array of integer;
n,i,j:integer;
begin
readln(n);
SetLength(a,n);
for i:=0 to n-1 do SetLength(a[i],m);
SetLength(ans,n);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do read(a[i,j]);
readln;
end;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>3 then ans[i]:=ans[i]+a[i,j];
for i:=0 to n-1 do writeln(ans[i]:4);
writeln;
end.
Пример:
3
0 1 2 3 4 5 6
7 7 7 7 7 7 7
0 1 2 3 3 2 10
15
49
10
В случае невыполнения пердусловия
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
