Одно число в 2 раза больше другого, а их сумма равна s. Найти эти числа. Паскаль....

Question

Одно число в 2 раза больше другого, а их сумма равна s. Найти эти числа. Паскаль. Пожалуйста срочно надо.

Comments

Это все данные?

---

да

Answer 1

Var
    s, i : Integer;
begin
    Write('Введите сумму двух чисел: ');
    ReadLn(s);

    if s mod 3 = 0 then
    begin
        i := s div 3;
        Writeln('a = ', i);
        Writeln('b = ', i*2);
    end
    else
        Writeln('Таких чисел нет.');

    Readln;
end.