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

1

Ответы и объяснения

2013-09-15T12:45:13+04:00
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.