• ПОМОГИТЕ!!!!!!!!!!

    В программе Паскаль составить программу
    Даны 2 числа .
    Если числа больше 10,то уменьшить их в 10 раз , то есть оставить без изменений.

Ответы 1

  • 1. Если каждое число рассматриваем как самостоятельноеvar  a,b:real;begin  Write('Введите два числа через пробел: ');  Read(a,b);  if a>10 then a:=a/10;  if b>10 then b:=b/10;  Writeln(a,' ',b)end.2. Если оба числа рассматриваем совместноvar  a,b:real;begin  Write('Введите два числа через пробел: ');  Read(a,b);  if (a>10) and (b>10) then begin a:=a/10; b:=b/10 end;  Writeln(a,' ',b)end.
    • Автор:

      dana40
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years