Question

Написать программу в Паскаль
(а*а+б*б)/б*б

Answer 1

var a,b:integer;

begin

readln(a,b);

writeln((a*a+b*b)/(b*b));

end.

Компилятор: Free Pascal Compiler 2.6.2

Answer 2

Тогда зачем ответ давать? Вы вроде за баллами особенно не гоняетесь...

Answer 3

В смысле, зачем ответ давать?)Интересный вопрос

Answer 4

Зачем давать ответ на вопрос, в котором неоднозначность. А не вообще на вопрос.

Answer 5

Я дал ответ, который, в принципе, не требует знаний языка в корректировании. Если ему и нужно так, как и правда указано в формуле, труда изменить это не составит. Это мое мнение

Answer 6

А мое мнение, что человек дал кривое условие. Вы дали ответ и тем самым показали ему, что можно продолжать в том же духе - пихать сюда любую фигню не думая. Поощрили, так сказать. Это мое мнение.

Answer 7

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var а := ReadReal('а=');  

   var б := ReadReal('б=');  

   PrintLn((а*а+б*б)/б*б);

end.

Answer 8

Это точно не тот случай

Answer 9

Да? Ну хорошо, в конце-концов, оно мне надо? )))

Answer 10

Все равно тут уже давно качество вопросов (а, следовательно, и ответов) давно уже никого не волнует.

Answer 11

Скорее какой вопрос такой и ответ. Разработчик же не виноват что ТЗ глупое, главное что заказчик его утвердил

Answer 12

Вот и я о том, что раньше к "Заказчику" были определенные требования. Теперь из практически нет - главное, чтобы массовость была.