Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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