Всего символов в книге - 40 * 80 * 100 = 320 000;
1 символ – это 1 байт, в книге содержится 320 000 байт информации
Переведем в Мб, 320 000 байт / 1024 / 1024 = ~ 0,3 Мб.
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
//Задание №1
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) <> 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
write('Сумма элементов на нечетных строках = ', s);
end.
Тестовое решение:
-10 2 -1 -8 -9 -1 5
2 -10 2 4 8 -6 8
0 3 2 3 -8 -10 4
3 -3 -4 2 9 -8 3
9 -4 -1 3 7 3 -2
Сумма элементов на нечетных строках = -13
//Задание №2
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) <> 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
writeln('Элементы на нечетных столбцах:');
for i := 1 to m do
begin
for j := 1 to n do
begin
if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], ' ');
end;
writeln;
end;
end.
Тестовое решение:
4 -10 -7 -4 -7 -5 -10
-1 3 6 -10 -2 -1 -5
2 8 -5 -1 -3 1 2
3 10 -5 6 -1 3 2
-8 3 4 5 -1 6 10
Элементы на нечетных столбцах:
a[1,1] = 4 a[1,3] = -7 a[1,5] = -7 a[1,7] = -10
a[2,1] = -1 a[2,3] = 6 a[2,5] = -2 a[2,7] = -5
a[3,1] = 2 a[3,3] = -5 a[3,5] = -3 a[3,7] = 2
a[4,1] = 3 a[4,3] = -5 a[4,5] = -1 a[4,7] = 2
a[5,1] = -8 a[5,3] = 4 a[5,5] = -1 a[5,7] = 10
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
