Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу
Переменная "c" после выполнения этого кода будет: 32
10*1024 = 10240 байт
10240/(32*40*8) = 1 байт - столько "весит" 1 символ
1 символ - 8 бит. 2 в восьмой степени равно 256. 256 символов в алфавите