Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.
18 + 10 = 28 символов - мощность алфавита
N =
, 28 =
, i = 5 бит - для одного символа.
5 * 7 = 35 бит - для хранения 7 символов.
35/8 = 5 байт.
5 * 60 = 300 байт - для хранения 60 номеров
Ответ: 300 байт.
var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
1)<span>89
2)30
3)219
вот )))</span>