Var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);<span>end.</span>
i - 8 бит
K = 64*40*40
I - ?
I = K*i = 64*40*40*8 бит = 64*40*40*8/8 байт = 64*40*40 байт = 64*40*40/1024 Кбайт = 100 Кбайт
x = 0
y = 6
y > 0 - да, значит y = 6 - 3 = 3, x = 0 + 3 = 3
y > 0 - да, y = 3 - 3 = 0, x = 3 + 0 = 3
0 > 0 - нет, выводим x и он равен 3
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.