Возвести во вторую степень число m/n, если его целая часть больше числа k, где k остаток от деления m на 5.

Нужно сделать через Pascal!

Question

Кита

8 февраля, 07:14

+2

Ответы (1)

Знаете ответ на вопрос?

Гермоген · Answer 1

Var

k, m, n:real;

begin

readln (m, n) ;

k:=m mod 5;

if (m div n) >k then

writeln ((m/n) * (m/n)) ;

end.

Возвести во вторую степень число m/n, если его целая часть больше числа k, где k остаток от деления m на 5.Нужно сделать через Pascal!