Kcup
Program del; var p, s: integer; begin writeln('Введите делимое'); readln(p); s:= sqr(p mod 5); Writeln('Остаток в квадрате =', s); end.
0 votes Thanks 0
xoxofrnk
там частное надо возводить, а не остаток. плюс, ты задействуешь лишние переменные, что, несомненно, задействует больше памяти, а это всегда не очень хорошо для программы ~~
Answers & Comments
c: integer;
begin
read(c);
writeln(sqr(c div 5));
end.
var p, s: integer;
begin
writeln('Введите делимое'); readln(p);
s:= sqr(p mod 5);
Writeln('Остаток в квадрате =', s);
end.