Одна строка- 8 битт.
всего тут 11 строк
значит 8*11=88
вроде бы так
В двоичной записи десятичного числа 293 - 4 единицы
Кажлор - ето ложка, колмес - точно не знаю но наверное количество месяцев
Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.