Помогитееееееееееееее!!!!!!!! плиз 50 баллов!!
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причём первая (старшая) цифра меньше второй (младшей).
const N = 40;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причём первая (старшая) цифра меньше второй (младшей).
const N = 40;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
Answers & Comments
Всё просто
Алгоритм:
for j := 1to N do
if (8 <=a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1
for j := 1 to N - перебор всех элементов массива
(8 <= a[j]) and (a[j] <= 63) - восьмеричнаязапись чисел от 8₁₀ до 63₁₀ содержит ровно две цифры
(a[j] div 8 < a[j] mod 8) - первая (старшая) цифраменьше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀
k:=k + 1 - счётчик количества элементов массивасоответствующих условиям
Программа целиком:
const N=40;
var a:array [1..N] of integer;
i, j, k:longint;
begin
for i:=1 toN do
readln(a[i]);
for j := 1to N do
if (8 <=a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1;
writeln('Количество элементов массива, восьмеричная записькоторого содержит ровно две цифры, причем первая (старшая) цифра меньше второй(младшей), равно: ',k);
end.