Написать программу в pascal abc! 1. разработать базу данных «отдела кадров университета» (фамилия, имя, отчество, стаж педагогической деятельности). вывести на экран данные по преподавателям, имеющих стаж более 10 лет. 2. даны три множества x1 x2 x3 содержащие целые числа из диапазона [1..100]. сформировать новое множество y=(x1ux2)∩ (x2ux3), из которого выделить подмножество нечетных чисел. 3. описать функцию rootscount(a,b,c) целого типа, определяющую количество корней квадратного уравнения ax^2+bx+c=0 (a,b,c- вещественные параметры, a не равно 0). с её найти кол-во корней для каждого из трёх квадратных уравнений с данными коэффициентами. количество корней определять по значению дискриминанта: d=b^24ac
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.