P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
Program fantscrin;
Var a: array [1..10] of integer;
i,k,g:integer;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
write(a[i], ' ');
writeln('');
write('К = '); readln(k);
g:=0;
for i:=1 to 10 do
if(a[i] = k) then g:=i;
writeln(g);
End.
<span>Произведения художественной литературы,<span> информация в учебнике. Больше я не знаю.</span></span>
РабОта или рОбота?
откуда берутся исходные данные?
Только мышь относится к устройствам ВВОДА информации.
Принтер и Монитор это устройства ВЫвода.
Видеокарта вообще обработки информации