Составить программу которая возводит в квадрат остаток от целочисленного деления числа а на 15 и выводит результат
Ответы на вопрос
Ответил Dany922
0
Program Program1;
var
A,B:Integer;
C,D:Real;
Begin
ReadLn(A);
B:=A mod 15;
C:=sqr(B);
WriteLn(C);
End.
var
A,B:Integer;
C,D:Real;
Begin
ReadLn(A);
B:=A mod 15;
C:=sqr(B);
WriteLn(C);
End.
hrenovoo:
C и D - абсолютно лишние переменные, по большому счёту 1-й достаточно
Согласен, можно сократить
Ответил hrenovoo
0
var x:integer;
begin
readln(x);
writeln((x div 15)*(x div 15));
end.
begin
readln(x);
writeln((x div 15)*(x div 15));
end.
*не div, а mod
Program Program2;
var
X:Integer;
begin
ReadLn(X);
WriteLn(sqr(X mod 15));
end.
var
X:Integer;
begin
ReadLn(X);
WriteLn(sqr(X mod 15));
end.
Хороший ответ)
++
Новые вопросы