Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Число 110111 в десятичной системе счисления окажется числом 55.
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.
1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
К = 0, 1 *3 = 3, 3>10 нет
к = 1, 2 * 3 = 6, 6>10 нет
к = 3, 3 * 3 = 9, 9>10 нет
к = 4, 4 *3 12, 12>10 да
Ответ: к = 4.