Ответ: а и с тк формат bmp свойственен для рисунков.
Var
a : array ['a'..'z'] of integer;
c : char;
begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>
Var
x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (sqr(x)+sqr(y)<=1) then
if (x<0) and (y>0) then
writeln('no')
else
writeln('yes')
else
writeln('no');
end.<span>
</span>
Код в файле снизу, если будут непонятки, то выключи переводчик в браузере