Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae
формула решения n:= n mod 10; n вводим с клавиатуры. и кстати программа позволяет выдилять последнию цифру не только с 3х значных цифр.
I = K*i, где I - информационный объём, K - количество символов, i - вес одного символа
i вычисляется по формуле Шеннона (N=2^i, где N - мощность алфавита), то есть для решения надо знать количество символов в файле и мощность алфавита
удачи :D
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.