В)<span>программа , обеспечивают работу устройства компьютера</span>
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.
К=64х32х10=20480 символов решение: I=K*i
i=8бит 20480х8=163840 бит
Найти: I 163840:8=20480 Байт
20480: 1024=20 Кбайт
Sub ex7()
m = CInt(InputBox("m="))
n = CInt(InputBox("n="))
y = 0#
For k = 1 To 25
y = y + k ^ 2 / m + k ^ 3 / 2
Next k
z = y * (y - 4) + 0.02 * n
MsgBox "z=" + CStr(z)
End Sub