Задание:
1) Составить программу нахождения наибольшего общего делителя НОД. Составитьблок-схему 2) Составить программу решения примера 1+2+4+6+8…
Решение:
Program pr1; var x,y, nod: integer; beginreadln (x,y); repeatif x > y then x: =x mod yelse y: =y mod xuntil x*y=0; nod: =x+y; writeln ('НОД=', nod); end.program pr2; var i,n,sum: integer; beginreadln (n); sum: =1; for i: =1 to n doif i mod 2=0 then inc (sum,i); writeln (sum); end.
Знаете другой ответ?