Ответы на вопрос:
это средство получения желаемого исхода, а именно гибкого производства, приносящего клиентам отличный результат, а владельцам – более высокую прибыль
1. program pr1; uses crt; var n,k,i,t: integer; beginclrscr; write('введите целое число n='); readln (n); for i: =2 to n do begin t: =0; for k: =2 to n do if i mod k=0 then t: =t+1; if t=1 then write(i: 3); end; readln; end.2. program pr2; var a, b: integer; function nod(a, b: integer): integer; var tmp, r: integer; begin if b > a then begin tmp : = a; a : = b; b : = tmp; end; tmp : = a; while tmp > 0 do begin result : = tmp; tmp : = tmp - b; end; end; begin write('a = '); readln(a); write('b = '); readln(b); write('нод: ', nod(a, b)); readln; end.
Популярно: Информатика
-
vasapipkin93427.09.2020 06:29
-
RonaAnna16.04.2020 13:13
-
АнастасияСтр22.02.2021 00:40
-
anatolibikov114.06.2023 20:19
-
vano12512512511.05.2021 02:11
-
АшадЕфремова17.05.2020 07:18
-
Danil21K16.08.2022 03:00
-
kos200811.02.2023 14:46
-
qweravq22.05.2022 20:08
-
hohlovm7106.07.2021 10:47