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

Question

Александра

4 июня, 20:46

+2

Ответы (2)

Знаете ответ?

Марк · Answer 1

Var x:integer;

begin

readln (x) ;

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

end.

Федяйка · Answer 2

Program Program1;

var

A, B:Integer;

C, D:Real;

Begin

ReadLn (A) ;

B:=A mod 15;

C:=sqr (B) ;

WriteLn (C) ;

End.