Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX5
.PAS program ex5;
var s:string[8];
i,j,a,b:integer;
x:char;
begin
writeln('‚ўҐ¤ЁвҐ бва®Єг');
readln(s);
a:=1;
x:=s[1];
for i:=1 to length(s) do
begin
if s[i]>x then begin a:=i; x:=s[i] end;
end;
x:=s[1];
b:=1;
for j:=1 to length(s) do
begin
if s[j]<x then begin b:=j;x:=s[j];end;
end;
writeln('ђҐ§г«мв в ',b,' ',a);
readln;
end.
var s:string[8];
i,j,a,b:integer;
x:char;
begin
writeln('‚ўҐ¤ЁвҐ бва®Єг');
readln(s);
a:=1;
x:=s[1];
for i:=1 to length(s) do
begin
if s[i]>x then begin a:=i; x:=s[i] end;
end;
x:=s[1];
b:=1;
for j:=1 to length(s) do
begin
if s[j]<x then begin b:=j;x:=s[j];end;
end;
writeln('ђҐ§г«мв в ',b,' ',a);
readln;
end.
Соседние файлы в папке Alex