Регистрация
Ярослав3464
27.02.2020 22:38
Информатика
Есть ответ 👍

Язык программирования - С++

265
437
Посмотреть ответы 1

Ответы на вопрос:

haydsaaronp014m7
haydsaaronp014m7
4,4(85 оценок)
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.

Популярно: Информатика