Одно число в 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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!