Составить программы 1. y=4sin| | -8.3cos1, 2x 2.ввести номер телефона одного из четырех друзей. вывести его имя

Вот если в exel надо было

// pascalabc.net 3.0, сборка 1164 от 11.02.2016 function gcd(a,b: integer): integer; // нахождение нод var   i: longint; begin   while b < > 0 do begin       a : = a mod b;       i : = b; b : = a; a : = i       end;   result: =a end; begin   var a: =readinteger('a=');   var b: =readinteger('b=');   var nod: =gcd(a,b);   if nod> 1 then       writelnformat('дробь сократима: {0}/{1}={2}/{3}',       a,b,a div nod,b div nod)   else writelnformat('дробь {0}/{1} несократима',a,b) end. тестовое решение: a= 23541 b= 335160 дробь сократима: 23541/335160=59/840

//текуще время #include < iostream> #include < cstdlib> #include < cstring> using namespace std; string dig(int n) {        string st="";     if (n> 9) {   st=st+char(n%10+48);   st=char(n/10+48)+st; }     else   st=st+'0'+char(n+48);     return(st); } int main(int argc, char** argv) {     int n,k,m,sc;     string s="";     cout< < "n = ";   cin> > n;   cout< < endl;     k=n/3600;     m=(n-k*3600)/60;     sc=n-k*3600-m*60;     if (k> 24)   k=k%24;     if (k< 10)   s=s+char(k+48)+': ';     else s=s+dig(k)+': ';     s=s+dig(m)+': ';     s=s+dig(sc);     cout< < "time:   "< < s< < endl;     system("pause");     return(0); }