Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Ответ:
2. 4
Объяснение:
potomyshto ty sliskom typoj
Ответ:
1) Количество точек -289
2) Так как всего 2 цвета черный и белый. то глубина цвета равна 1 ()
3) Объем видеопамяти равен 289*1=289 бит