Возвести во вторую степень число 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.
Не нашли ответ?
Похожие вопросы