Составить программу которая возводит в квадрат остаток от целочисленного деления числа а...

Question

Составить программу которая возводит в квадрат остаток от целочисленного деления числа а на 15 и выводит результат

Answer 1

Program Program1;
var 
A,B:Integer; 
C,D:Real;
Begin 
ReadLn(A); 
B:=A mod 15; 
C:=sqr(B); 
WriteLn(C);
End.

Comments

C и D - абсолютно лишние переменные, по большому счёту 1-й достаточно

---

Согласен, можно сократить

Answer 2

Var x:integer;
begin
  readln(x);
  writeln((x div 15)*(x div 15));
end.

Comments

*не div, а mod

---

Program Program2;
var 
  X:Integer;
begin
  ReadLn(X);
  WriteLn(sqr(X mod 15));
end.

---

Хороший ответ)

---

++