— словарь в компьютере или другом электронном устройстве.
Позволяет быстро найти нужное слово, часто с учётом морфологии и возможностью поиска словосочетаний (примеров употребления), а также с возможностью изменения направления перевода (например, англо-русский или русско-английский).
Внутренне устроен как база данных со словарными статьями.
Электронные словари не стоит путать с компьютерными словарями, предназначенными не для пользователей, а для компьютерных программ, работающих с текстами на естественных языках того кто создал его это морзе
<u>Задача №1 (написанная на паскале)</u>
uses crt;
var
a, b, c: real;
begin
readln (a, b, c);
a:= a*a;
b:= b*b;
c:= c*c;
if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');
readkey;
end.
<u>Задача №2.(написанная на паскале) </u>
uses crt;
var
a : integer;
begin
readln (a);
if (a mod 13 =0) then writeln ('da') else writeln ('net');
readkey;
end.
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
s := '123456789'; - строковой переменной s присваивается значение
Delete ( s, 1, 2 ); - из строки s удаляется 2 символа, начиная с 1-го (значение s будет '3456789')
n := Pos ( '6', s ); - определяется номер позиции символа '6' в строке s. Этот номер равен 4
writeln ( n ); - на экран выводится значение n, т.е. 4