Ответ:
215
Объяснение:
Видимо, неравенство в задаче выглядит так:
Переведем каждое из чисел 10-тичную систему счисления.
Получим диапазон для десятичных чисел , длину которого легко посчитать: 246 - 32 + 1 = 215
<span />ПРОГРАММЫ ИДУТ ПО ПОРЯДКУ ДЛЯ КАЖДОГО НОМЕРА
program _1;
var a,b:integer;
begin
write ('введите количество килограмм ' );
readln (a);
b:=a div 100;
writeln (b, ' полных центнеров ' );
end.
program _2;
var a,b:integer;
begin
write (' введите массу в килограммах ');
readln (a);
b:= a div 1000;
writeln (b, ' полных тонн ');
end.
program _3;
var a,b : integer;
begin
write (' введите расстояние в метрах ');
readln (a);
b: a div 1000;
writeln (b, ' полных километров: ' );
end.
Проводник - абориген.
Потому что если бы он спросил у пришельца, которые всегда лгут, "Кто ты?", то тот солгал, сказав "Абориген". И проводник пришел и сказал правду.
А если бы проводник был бы пришельцем, спросив у аборигена "Кто ты?", то абориген сказал бы правду. Но пришелец путешественнику соврал бы, сказав, что тот пришелец.
1,44 мбайта
--------------------
1.
const
stroki = 10000;
stolbci = 10000;
type
matrix = array[1..stroki, 1..stolbci]of integer;
procedure vvod(var a: matrix; m, n: integer);
var
i, i1: integer;
begin
for i := 1 to m do
begin
write(' ');
for i1 := 1 to n do
read(a[i, i1]);
end;
end;
var
a: matrix;
m, n, i, j, kol: integer;
begin
kol := 0;
readln(n, m);
vvod(a, n, m);
for i := 1 to n do
for j := 1 to m do if a[i, j] = 7 then kol += 1;
writeln(kol);
end.
2.
var
a, b, c: array[0..14] of integer;
i, max, min, sum: integer;
begin
sum := 0;
min := 100;
max := 0;
for i := 0 to 14 do
begin
randomize;
a[i] := 10 + random(1 + 30 - 10);
b[i] := 10 + random(1 + 30 - 10);
c[i] := a[i] + b[i];
if c[i] > max then max := c[i]
else if c[i] < min then min := c[i];
sum += c[i];
end;
writeln(max);
writeln(min);
writeln(round(sum / 15));
end.