Ввести с консоли строку символов произвольной длины (до 80 символов). поменять в ней все маленькие символы ‘a’ и ‘b’ на заглавные и вывести на консоль полученную строку.
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 begin var s:=ReadlnString('Вводите строку:'); for var i:=1 to s.Length do case s[i] of 'a':s[i]:='A'; 'b':s[i]:='B' end; Writeln(s) end.
Тестовое решение: Вводите строку: The monkey ate five bananas The monkey Ate five BAnAnAs
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
Var i,x:integer; m:array[10..20] of integer; begin randomize; for i:=10 to 20 do m[i]:=random(11)+10; for i:=10 to 20 do write(m[i],' '); writeln; x:=m[10]; m[10]:=m[20]; m[20]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
2)
var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(100)+1; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if m[i]<m[min] then min:=i; if m[i]>m[max] then max:=i; end; x:=m[min]; m[min]:=m[max]; m[max]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
begin
var s:=ReadlnString('Вводите строку:');
for var i:=1 to s.Length do
case s[i] of
'a':s[i]:='A';
'b':s[i]:='B'
end;
Writeln(s)
end.
Тестовое решение:
Вводите строку: The monkey ate five bananas
The monkey Ate five BAnAnAs