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

Возвести во вторую степень число m/n, если его целая часть больше числа k, где k остаток от деления m на 5.  Нужно сделать через Pascal !
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы