Из целых чисел такая пара только одна - 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
Иволга - и (картинка вола) га.
Волна - (снова картинка вола) на
Ворона - (картинка вора)она
ива - буква И внутри буквы А
Наташа - Ша, под ним Та (на Та находится Ша)
Trunc(sqrt(16 div 3)) = Trunc(sqrt(5)) = <span>Trunc(2.24) = 2</span>
НА ПРИМЕРЕ В ЭТОЙ ЗАДАЧИ
program z1;
uses crt;
const
st1='ма';
st2='ма';
var
str:string;
i,k:integer;
begin
write('введите строку: ');readln(str);
for i:=1 to length(str) do
if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then
k:=k+1;
writeln(k);
end.
Pascal ABC
Var
i:integer;
Begin
For i:= 1 to 50 do
Write(i,' ')
End.
