Var
a,b,i,s:integer;
begin
writeln('Введите A:');
readln(a);
writeln('Введите B:');
readln(b);
for i:=a to b do
s:=s+sqr(i);
writeln('сумму всех кводратов целых чисел от A до B включительно:', s);
end.
Ответ:
173₁₀ = = 173₁₀
173₁₀ = 5*8⁰ + 5*8¹ + 2*8² = 255₈
A2₁₆ = 2*16⁰ + A*16¹ = 162₁₀
162₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100010₂
Объяснение:
желательно указывать также основание исходных чисел
Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
1) 0.25 * 1024 = 256
Ответ: 256 байт