Uses crt;
var s:string;
i:integer;
l:boolean;
m:set of char;
begin clrscr;
write('Введите число :');
readln(s); l:=false;
for i:=1 to length(s) do begin
if (m<>m-[s[i]]) then l:=true;
m:=m+[s[i]];
end;
if l then Writeln('Да')
else Writeln('Нет');
<span>end.</span>
Для обработки изображений на компьютере используются специальные программы — графические редакторы. Графический редактор — это программа создания, редактирования и просмотра графических изображений. Графические редакторы можно разделить на две категории: растровые и векторные.
2)
var n,k,l,a:real;
begin
read(n,k,l);
a:=k/n;
writeln(trunc(l/a));
<span>end.</span>
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if Abs(A)<5 then WriteLn('!!!')
else WriteLn('???');
End.
Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.
216.348.1112.7610. если не ошибаюсь