Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.
Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.
Веб-программист: Eclipse, Brackets
Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)
Дизайнер: Photoshop
Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду
Дизайнер: тоже прикладная
Веб-программист: Система программирования
Методист: Системная программа тк. встроена в винду
Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов
Мне уже проверили так что:
Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.
Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.
Веб-программист: Eclipse, Brackets
Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)
Дизайнер: Photoshop
Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду
Дизайнер: тоже прикладная
Веб-программист: Система программирования
Методист: Системная программа тк. встроена в винду
Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов
var
s1,s2,alf,key:string;
i,n, Kod:integer;
f1,f2:text;
BEGIN
alf:='';
assign(f1,'Dannie.txt');
assign(f2,'Shifr.txt');
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
begin
readln(f1,s1);
s2:='';
for i:=1 to length(s1) do
begin
Kod:=Pos(s1[i],alf);
n:=n+1;
if n>4 then n:=1;
Kod:=Kod+StrToInt(key[n]);
if Kod>33 then Kod:=Kod-33;
if Kod<1 then Kod:=Kod+33;
s2:=s2+alf[Kod];
end;
writeln(f2,s2);
end;
close(f1);
close(f2);
END.
Program DeShifr;
var
s1,s2,alf,key:string;
i,n,Kod:integer;
f1,f2:text;
BEGIN
alf:='';
assign(f1,'Shifr.txt');
assign(f2,'DeShifr.txt');
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
begin
readln(f1,s1);
s2:='';
for i:=1 to length(s1) do
begin
Kod:=Pos(s1[i],alf);
n:=n+1;
if n>4 then n:=1;
Kod:=Kod-StrToInt(key[n]);
if Kod>33 then Kod:=Kod-33;
if Kod<1 then Kod:=Kod+33;
s2:=s2+alf[Kod];
end;
writeln(f2,s2);
end;
close(f1);
close(f2);
END.