Если число в двоичной, то добавим ему незначащих нулей:
00001010-ответ
Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
1) одна из главных составляющих компьютера-процессор
2) Предмет системы вывода информации-монитор
3) одиз из компьютерных языков-паскаль ну или бейсик(бэйсик)
4) Один из основателей майкрософт-Гейтс
5) Предмет для ввода информации-Планшет(ну на котором рисуют пишут и т.п.) можно написать мышка или клавиатура
6) Программа софт защищающая компьютер от вредоносных программ-антивирус
<span>Если "родителей должно быть не менее одной трети" (т.е. больше или равно), то в первом примере (где n=27, k=7) ответ должен быть 2, а не 3. 7+2=9 - это как раз 1/3 от 27. </span>
var n,k,m:integer;
begin
writeln;
readln(n);
readln(k);
m:=(n-1) div 3+1;
if m-k>0 then writeln(m-k) else writeln(0);
end.
Пример:
27
7
2