Нод будем находить при эвклидового алгоритма, а нок - по формуле: . program nod_nok; var a, b, g: integer; l: real; function gcd(a, b: integer): integer; var t: integer; begin while b < > 0 do begin t : = b; b : = a mod b; a : = t; end; gcd : = a; end; function lcm(a, b, gcd: integer): real; begin lcm : = abs( a * b ) / gcd; end; begin write('a = '); readln(a); write('b = '); readln(b); g : = gcd(a, b); writeln('нод: ', g); l : = lcm(a, b, g); writeln('нок: ', l: 1: 0); end.
Кристина910
22.03.2021
Program pr1; uses crt; var mas: array[1..20] of integer; i,v,a,k,x: integer; begin clrscr; writeln('vvedite a'); readln(a); writeln('vvedite k'); readln(k); for i: =1 to 20 do begin writeln('vvedite ',i,'-ji simvol'); readln(mas[i]); end; v: =0; x: =0; for i: =1 to 20 do begin if mas[i] mod 2< > 0 then v: =v+mas[i]; if mas[i]> a then writeln('> a ',i); if (mas[i] mod k=0) and (mas[i]> 0) then x: =x+1; end; writeln('summa nechetnih - ', v ); if x> 0 then writeln('true') else writeln('false'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Cрочно надо решить x+x**2/(1+2)+x**3/(1+2+3)+x**n/(1+2++n) написать прогу на питоне не используя возведение в степень