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

Question

Павел

2 августа, 23:10

+3

Ответы (2)

Знаете ответ на вопрос?

Степан · Answer 1

Program Program1;

var

A, B:Integer;

C, D:Real;

Begin

ReadLn (A) ;

B:=A mod 15;

C:=sqr (B) ;

WriteLn (C) ;

End.

Ируня · Answer 2

Var x:integer;

begin

readln (x) ;

writeln ((x div 15) * (x div 15)) ;

end.