// 10. var n: integer; begin read(n); Write((n div 100 mod 2 = 0) or (n mod 10 mod 2 = 0) or (n mod 100 div 10 mod 2 = 0)); end.
// 11. var n: integer; a,b,c:integer; begin read(n); a:=n div 100; b:=n mod 100 div 10; c:=n mod 10; Write((a+b=c)or(a+c=b)or(c+b=a)); end.
// 12. var n: integer; a,b,c,d:integer; begin read(n); a:=n div 1000; b:=n mod 1000 div 10 div 10; c:=n mod 100 div 10; d:=n mod 10; Write(a+b+c+d-1=a*b*c*d); end.
// 13. var n,k: integer; a,b,c:integer; begin Write('n,k= '); read(n,k); a:=n div 100; b:=n mod 100 div 10; c:=n mod 10; Write((b+c<k)and(a>5)); end.
PROGRAM MatrixMax var a : array [1..3, 1..4] of integer b : array [1..3] of integer Max, i, j : integer BEGIN crt; for i:=1 to 3 do begin for j:=1 to 4 do begin read (a[i, j]); // вводим элементы в массив a[1..3, 1..4] end; writeln; // делаем пустой перевод строки end; for i:=1 to 3 do begin b[i] := a[i, 1]; for j:=1 to 4 do begin if a[i, j] > b[i] then b[i] := a[i, j]; // находим максимальный элемент в каждой строке и записываем в b[1..3] end; end; Max := b[1]; for i:=1 to 3 do if b[i] > Max then Max := b[i]; // Находим максимальный элемент из максимальных элементов writeln (Max); // Выводим его на экран END.
Да сохраняется
Объяснение:
(иә сақталады)