Даны два числа: a = D5_{16} и b = 327_(8). Какое из чисел c, записанных в двоичной системе счисления, удовлетворяет неравенству a < c < b? Укажите верный вариант ответа
//прога на Pascal type film = record name : string[20]; age : byte; end; var a: array of film; n, i: byte; begin write ('Введите кол-во фильмов: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите название фильма ', i+1, ': '); readln (a[i].name); write ('Введите возрастное ограничение фильма ', i+1, ': '); readln (a[i].age); end; writeln ('Введите возраст зрителя: '); readln (n); writeln (''); for i:=0 to length (a)-1 do begin if n>a[i].age then write ('Этот зритель может ') else write ('Этот зритель не может '); writeln ('пойти на фильм "', a[i].name, '"'); end; end.
//прога на Pascal`e var a: array of int64; n: longint; i : byte; begin write ('Введите кол-во чисел: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите ', i+1, ' число: '); readln (a[i]); end;
for i:=0 to n-1 do begin writeln (''); writeln ('Число ', a[i], ':'); if (a[i] mod 2) = 0 then writeln ('Четное') else writeln ('Нечетное'); if (a[i] mod 3) = 0 then writeln ('Кратно 3-ем') else writeln ('Не кратно 3-ем'); if (a[i]<10) or (a[i]>99) then writeln ('Не 2-значное') else writeln ('2-значное'); end; end.
type
film = record
name : string[20];
age : byte;
end;
var
a: array of film;
n, i: byte;
begin
write ('Введите кол-во фильмов: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите название фильма ', i+1, ': ');
readln (a[i].name);
write ('Введите возрастное ограничение фильма ', i+1, ': ');
readln (a[i].age);
end;
writeln ('Введите возраст зрителя: ');
readln (n);
writeln ('');
for i:=0 to length (a)-1 do
begin
if n>a[i].age then write ('Этот зритель может ') else write ('Этот зритель не может ');
writeln ('пойти на фильм "', a[i].name, '"');
end;
end.
var
a: array of int64;
n: longint;
i : byte;
begin
write ('Введите кол-во чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('');
writeln ('Число ', a[i], ':');
if (a[i] mod 2) = 0 then writeln ('Четное') else writeln ('Нечетное');
if (a[i] mod 3) = 0 then writeln ('Кратно 3-ем') else writeln ('Не кратно 3-ем');
if (a[i]<10) or (a[i]>99) then writeln ('Не 2-значное') else writeln ('2-значное');
end;
end.