Проще в виде скриншота тебе это дать, форматирование плывет
Язык программирования - знаковая система, предназначенная для записи алгоритмов и компьютерных программ. Синтаксис языка программирования - правила, по которым структура программ описывается как набор символов. Попробую описать. Синтаксис языка программирования Pascal предполагает для определения остатка от деления функцию mod, причем делимое стоит прямо перед функцией, а делитель - после нее(к примеру, Y:=9mod4)
Схема составлена с помощью цикла Пока
1. Количество чисел = 2^5 = 32
2. Если символ кодируется одним байтом, то:
150*40*60*1 байт = 150*40*60/1024 Кбайт = 351,5625 Кбайт
3. Память для одного символа = log(2)8 = 3 бита. Количество информации в сообщении = 13*3 = 39 бит.
4. Количество символов = 3*25*60; 1125 байт = 1125*8 бит;
память для одного символа = 1125*8/(3*25*60) = 2 бита.
Количество символов в алфавите = 2^2 = 4
<u><em>PascalABC.Net:</em></u>
procedure GetData(var a,b:longint; var k:char);
{ ввод исходных данных }
begin
Write('Введите через пробел натуральные границы диапазона: ');
Readln(a,b);
Write('Введите искомую цифру: ');
Readln(k)
end;
procedure Summa(a,b:longint;k:char;var s:longint);
{ подсчет суммы чисел из интервала [a,b],
содержащих цифру k }
var
i:integer;
ci:string;
begin
s:=0;
for i:=a to b do begin
Str(i,ci);
if Pos(k,ci)>0 then s:=s+i
end
end;
var
a,b,sum:longint;
k:char;
begin
GetData(a,b,k);
Summa(a,b,k,sum);
Writeln('Сумма чисел, содержащих цифру ',k,' равна ',sum)
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел натуральные границы диапазона: 50 150
Введите искомую цифру: 6
Сумма чисел, содержащих цифру 6 равна 1589