Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=10;
var a:=(x+6)*Sqr(x)-Sqrt(x-1);
var b:=Abs(x-15)*Sqr(x+1)/242;
Writeln('a=',a,', b=',b,', a-b=',a-b)
end.
<u>Результат</u>
a=1597, b=2.5, a-b=1594.5
сервер))) єто правильный ответ потому что у нас это сегодня было
Vara: array [1..10] of integer;
b:string;
c,i:integer;
begin
Randomize;
for i:=1 to 10 do begin
a[i]:=Random(5);
write(a[i]);
end;
b:='';
c:=0;
for i:=1 to 10 do
if (pos(inttostr(a[i]),b) =0) then begin b:=b+inttostr(a[i]); inc(c); end;
writeln(c);
end.
<span>//ABC Pascal
</span>