Ответы
Ответ дал:
0
var
a,b,i : integer;
begin
readln (a);
for i := 1 to 2 do
a := a div 10;
b := sqr(a mod 10);
writeln (b);
end.
a,b,i : integer;
begin
readln (a);
for i := 1 to 2 do
a := a div 10;
b := sqr(a mod 10);
writeln (b);
end.
archery:
Зачем куча лишних операций?
Ответ дал:
0
var a: integer;
begin
readln (a);
writeln (sqr((a mod 1000) div 100));
end.
begin
readln (a);
writeln (sqr((a mod 1000) div 100));
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад