Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
//PascalABC.NET
1)
var
num, sum: integer;
begin
sum := 0;
repeat
read(num);
if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 <> 0) then
sum := sum + num;
until (num = 0);
write(sum);
end.
2)
var
num, max, n, i: integer;
begin
max := 0;
read(n);
for i := 1 to n do
begin
read(num);
if (num mod 10 = 3) and (num > max) then
max := num;
end;
write(max);
end.
Нужно решить уравнение 341+166=507
Определим, в какой системе счисления 1+6=7 (цифры единиц)
Это десятичная система счисления.
277 в 8 сс<span> = 2∙8^2</span>+7∙8^2+7∙8^0<span> = 128+56+7 = 191 в </span><span>10 сс. ^ - это степень, если что.</span>