• написать программу которая из двух введенных с клавиатуры чисел определяет большее и возводит его в квадрат,а меньшее делит на 8

Ответы 2

  • var  a, b: real;begin  readln(a, b);  if a = b then writeln('Числа равны')  else  if a > b then begin    a := sqr(a);b := b / 8;  end  else begin    b := sqr(b);a := a / 8;  end;  writeln('a = ', a, ' b=', b)end.
    • Автор:

      grant87f8
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1214 от 09.04.2016begin  var a,b:real;  Write('Введите a и b: '); Read(a,b);  if a>b then (a,b):=(b,a);  Println(a/8,b*b)end.Тестовое решение:Введите a и b: 34 12.71.5875 1156
  • Добавить свой ответ

Войти через Google

или

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

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

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