Сканер. с листа бумаги клавиатура? лооол
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Двоичная:<span>1011111001
Восьмиричная:</span><span>1371
Шеснадцатеричная:</span><span>2F9</span>
Var x,y:real;
begin
read(x,y);
writeln((x+y)/2);
end;