Одно число в 2 раза больше другого, а их сумма равна s. Найти эти числа. Паскаль. Пожалуйста срочно надо.
Одно число в 2 раза больше другого, а их сумма равна s. Найти эти числа. Паскаль. Пожалуйста срочно надо.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы