Из целых чисел такая пара только одна - 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

0 0

3 года назад

Дано трехзначное число N. определить будет ли сумма его цифр четным числом

Солнце11 [1.9K]

Решение на языке Pascal

0 0

4 года назад

Рекурсивный алгоритм. Найти сумму чисел, полученных при вызове F(1). Ответ: 530. Объясните принцип решения, прошу.

лана л

Трассировка вызовов, печатаемых значений и подсчет суммы

var
s:integer;

procedure F(n:integer);
begin
Write(' F(',n,') ');
Write(n,' '); s:=s+n;
if n<6 then begin
 Write(n); s:=s+n;
 F(n+1);
 F(n+2);
 F(2*n)
end
end;

begin
s:=0;
F(1);
Writeln(#13#10,s)
end.

Результат выполнения программы:
F(1) 1 1 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8
530

0 0

4 года назад