Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s,a,n,i,min,max: integer;
begin
min: =32767;
max: =-32768;
readln(n);
for i: =1 to n do
readln(a);
if a< min then min: =a;
if a> max then max: =a;
end;
s: =(min+max)/2;
writeln(s);
end.
2 единицы в двоичной записи числа 1025
10000000001
т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов
ответ: 81 сигнал
var a: array [1..10] of integer;
i,k: integer;
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
Популярные вопросы