16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9
Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=7) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
На уроках по физкультуре основным занятием является развитие спортивных способностей вашего организма. Как правило, на занятиях ученикам дают практические задания. Не смотря на это, очень часто преподаватели требуют от своих подопечных рефераты по физкультуре. Особенно если вы освобождены от физических нагрузок. В этом разделе собраны основные рефераты по физкультуре, которые наиболее востребованы.
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>