нудно сделать програму Паскаль y=|cos(x^2-3.8)|/4.5-9.7sin(x-3.1)​

Не знаю на каком языке надо было, но сделал на языке Pascal

1.

var s:string;

k,i:integer;

begin

 readln(s);

 k := length(s);

 writeln(k);

end.

2.

var a,b:string;

i:integer;

begin

 writeln('Введите первую фамилию');

 readln(a);

 writeln('Введите вторую фамилию');

 readln(b);

 i:=length(a)-length(b);

 if i>0 then

   writeln('Первая фамилия длиннее')

 else writeln('Вторая фамилия длиннее')

end.

еще как вариант второго номера:

var a,b:string;

i:integer;

begin

 writeln('Введите первую фамилию');

 readln(a);

 writeln('Введите вторую фамилию');

 readln(b);

 i:=length(a)-length(b);

 if i>0 then

   writeln('Фамилия ', a, ' длиннее фамилии ', b)

 else writeln('Фамилия ', b, ' длиннее фамилии ', a)

end.

#рщыщрырыщчрщычрщычр, ыр, щрыщ, рыщ, рщыр, шыр, шыр, шыр, шыр, 8ры7,ры7,ыр7,ыпшы,пш,ыпш,ыпш,ышп,ырш,ршы,рпгкзк1спгзк1гзк1псгщк1сг931ш9рс1у79ср379чргу9в65дфу5щыкз6ык6з6н7ав2гзп3сгзпус1шрзусгизшр3срз3шзр3чзгручрзрчгзуршзчурсш93срш9у1арг931ра39ра93шра3ш9ар9ш3ср9шсрш931ср39шрмш9к1мрг1к993сп9гк1ср1кгрсг91ксрк9г1рм9гк1мп1к9гпм9г1кпм3г9пмг9упм9г3ппм79п3пм793мпгу9у92хра3маоз33зовмоз2мвомз22гвп2г8вм8гвк18гс3н81сузц6кжй3563ц63фы63х6ь4ггь462щ6юд зкплз2зоус11рчш9у1рсш01урс801ур7914рс803ос083ар8831ра91ос831оа83ра835ддывжегйыну6щ 9в58внвнд6удк6