Var
aa[1..1000, 1..1000] : array of integer;
i, j, m, n : integer;
r : boolean;
begin
{считываем массив}
readln(m, n);
for i := 1 to m do
for j := 1 to n do
read(aa[i, j]);
{ r равен true до первого элемента, равного 0}
r := true;
i := 0;
while i <= m and r = true do
begin
i := i + 1;
j := 0;
while j <= n and r = true do
begin
j := j + 1;
if aa[i, j] = 0 then
r := false;
end;
end;
writeln(i, ' ', j);
end.
Ip <span>93.120.218.52
максимальное кол-во компьютеров в сети 155</span>
1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга
#include <bits/stdc++.h>
using namespace std;
int main()
{ int a,b,mx;
cin >> a >> b;
if (a>b) cout << (a-b); else
cout << (b-a);
}