Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
//pascal
var a,b,c,n: integer;
begin
n:=0;
readln(a);
if a mod 2 = 0 then n:=n+1;
readln(b);
if b mod 2 = 0 then n:=n+1;
readln(c);
if c mod 2 = 0 then n:=n+1;
writeln('Четных : ', n);
end.
Условие Фано несложно. Оно гласит, что никакой код символа не может быть началом кода любого из остальных кодируемых символов.
Если А=0, то ни один иной символ не может начинаться с 0.
Если В=10, то ни один иной символ не может начинаться с 10.
Поскольку код 100 уже содержит в начале 10 - код буквы В, он не может быть кодом какой-то буквы, а будет декодирован, как ВА
2)
var a,b,c,x,y,z,s:real;
begin
writeln('Введите стоимость 1 кг конфет, печенья и яблок:');
readln(a,b,c);
writeln('Введите вес конфет, печенья и яблок:');
readln(x,y,z);
s:=a*x+b*y+c*z;
writeln('Стоимость всей покупки = ',s);
end.
Пример:
Введите стоимость 1 кг конфет, печенья и яблок:
215 150 60
Введите вес конфет, печенья и яблок:
0.5 2 3.5
Стоимость всей покупки = 617.5
3)
var b,s:real;
begin
write('b = ');
readln(b);
s:=b*30/1.5;
writeln('s = ',s);
end.
Пример:
b = 2
s = 40