Емое,1) вроде бы 1010111010,1011 = 1.010.111.010,101.1 = 1272,518
здесь 001=1; 010=2; 111=7; 010=2; 101=5; 001=1
Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.
program raf105;
var a:array[1..100] of integer;
i,b:integer;
begin
i:=1;
b:=1;
a[1]:=1;
writeln('Вводите 100 чисел по очереди');
for i:=1 to 100 do
begin
readln(a[i]);
if (a[i]<100) and (a[i]>9)
then b:= b+1;
end;
writeln('Количество двузначных чисел: ',b);
end.
<em />
<em>Программа написана на языке PascalABC</em>
Первое число - это сумма цифр x , второе - меньшая цифра . x - положительное целое . судя по всему ,ответ x=68