1) Составить программу нахождения наибольшего общего делителя…

Question

1) Составить программу нахождения наибольшего общего делителя НОД. Составитьблок-схему 2) Составить программу решения примера 1+2+4+6+8…

Answer 1

52

mono2

12 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: