954-459=495
Найти это можно по следующему свойству: если мы из трехзначного числа вычитаем то же число, записанное в обратном порядке, то средняя цифра разности всегда 9, а сумма двух оставшихся цифр тоже 9.
Там легко проверить, что у исходного числа 9 не может быть в середине. Ну а отсюда однозначно определяется вариант выше.
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
WriteLn('Введите матрицу A(',M,',',N,'):');
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
WriteLn('Количества положительных элементов в столбцах:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j] > 0 then k:=k+1;
Write(k,' ')
End;
End.
Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.