• с клавиатуры вводятся 2 числа. Если хотя бы одно из этих чисел является трёхзначным и кратным 3, вывести слово YES, иначе возвести первое число в квадрат, а из второго извлеч корень, вывести эти числа на экран

Ответы 1

  • var  a,b:integer;begin  Write('Введите два числа -> '); Readln(a,b);  if ((a>=100) and (a<=999) and ((a mod 3)=0) or      (b>=100) and (b<=999) and ((b mod 3)=0)) then Writeln('YES')  else Writeln(sqr(a),', ',sqrt(b))end.Тестовые решения:Введите два числа -> 65 360YESВведите два числа -> 152 4723104, 6.85565460040104
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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