var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
9216*60=552960 байт
552960/1024=540 кб
9216/1024=9 кб
9*60=540 кб
540/1024=0,52 мб
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
Var m: integer;
begin
readln(m);
write (m,' кг содержит ', m div 1000, ' полных тонн');
end.
Тип данных: char или string. Какой брать - зависит от способа реализации программы.
char - символьный тип. Принимает значение одного символа.
string - строковый тип. Принимает значение вводимой строки.
Т.к. программа не нужна, то вот ответ.