88
В следующий раз можешь просто скопипастить программу в IDE
1)
205-202-1=2 (вычитаем ещё один, потому что строгое двойное неравенство)
Ответ: 2.
2)
173-139+1= 35
Ответ: 35
3)12x*13x=211
x1=-1 посторонний корень т.к. основание системы счисления не может быть <0
x2=5
ответ: 5
Остальные по аналогии (переводишь всё в десятичную систему счисления и решаешь уравнение.
1. дом.bmp. потому что это графический файл, а все остальные текстовые.
2. лето.Jpg, это графический файл, потому что к графическим файлам относятся: bmp. jpg. gif.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.