Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
Интернет , сон , игры , что-то , ещё что-то
Ответ:
1000001110
Объяснение:
453(в восьмеричной) = 100101011(в двуичной)
100101011 + 11100011 = 1000001110
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
4 цвета умещаются в 2 бита
Объем видеопамяти = 2 * 640* 480 = 614400 бит
256 цветов умещаются в 8 бит
X * Y * 8 = 614400
X / y = 1.33
x = 1.33 * y
1.33 * y * y * 8 = 614400
y*y = 57600,144
y = 240
x = 320
Ответ 320 на 240