Программа в pascal abc. с клавиатуры вводится два слова. надо вывести на экран те буквы, которые есть и в одном и во втором слове (печатать буквы без повторений)
Нахождение площади труегольника: 1. Формула площади треугольника по стороне и высоте S = 1a · h2 2.Нахождение площади трекгольника по всем сторонам(Формула Герона) √S = √p(p - a)(p - b)(p - c)(все под корнем идет) 3.Формла площади трекгольника по 2-ум сторонам и углу между ними S = 1a · b · sin γ2 4.Формула нахождения площади трегольника по трем сторонам и радиусу описанной окружности S = a · b · с/4R 5.Формула площади трекгольника по трем сторонам и радиусу вписанной окружности S = p·r Нахождение площади прямоугольника: 1.Нахождение площади прямоугольника(одну сторону умножаем на другую,то есть ту которая длинная и которая короткая друг на друга) S = a · b Нахождение площади паралелограма: 1.Формула площади параллелограмма по длине стороны и высоте S = a · h 2.Формула площади параллелограмма по двум сторонам и углу между ними S = a · b · sin α Обращайся!
var
st:array[0..10000]of char;
s,s1:string;
g,g1,i,j,z:longint;
t:char;
begin
z:=0;
readln(s);
readln(s1);
g:=length(s);
g1:=length(s1);
for i:=1 to g do
for j:=1 to g1 do if s[i]=s1[j] then
begin
inc(z);
st[z]:=s[i];
break;
end;
for i:=1 to z-1 do for j:=i+1 to z do if st[i]>st[j] then
begin
t:=st[i];
st[i]:=st[j];
st[j]:=t;
end;
st[z+1]:='-';
for i:=1 to z do i st[i]<>st[i+1] then write(st[i],' ');
end.