даю 100 баллов очень безотлагательно сделать задачку номер 2 плиз и

Даю 100 баллов очень безотлагательно сделать задачку номер 2 плиз и блок схему

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (a,b):=ReadReal2(a,b);
  if agt;b then Writeln(Sqrt(a*b))
  else
    if bgt;a then Writeln(a*a+b*b)
    else Writeln('Нет формулы')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт