01010101₂ = 0+2⁶+0+2⁴+0+2²+0+2⁰ = 64+16+4+1 = 85₁₀
11111000₂ = -(1111000₂) = -(2⁶+2⁵+2⁴+2³+0+0+0) = -(64+32+16+8) = -120₁₀
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
Здрасте Вика
давно не видились
ну можно для начала написать вобщем зачем может быть нужен комп,потом зачем он нужен на информатике именно тебе
ну и дальше самой придумать