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

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

Question

Дана

8 января, 12:17

+3

Ответы (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!