Var
s, si, sm: string;
i, n: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
si := s;
Delete(si, i, 1);
if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.
А)
var a,b:integer;
begin
writeln ('Введите два целых числа:');
read (a,b);
if a > b then begin
writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin
writeln ('Наибольшее число ',b);
writeln ('Наименьшее число ',a);
end;
end.
В)
var a,b,c,d,max:integer;
begin
writeln ('Введите четыре целых числа:');
read (a,b,c,d);
max:=a;
if b > max then begin
max:=b;
end;
if c > max then begin
max:=c;
end;
if d > max then begin
max:=d;
end;
writeln ('Максимальное число ',max);
end.
Какая по счету буква такая и цифра а -1,б-2 и т.д.
Текстовый редактор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интегрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности.
Удачи:)
Достоинства:
1. Интуитивная понятность.
2. Возможность реализации с высокой степенью точности.
Недостатки:
1. Возможность образования скрытых каналов утечки информации.