Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры. напишите функцию, которая находит наибольший общий делитель для двух заданных чисел.

134

211

Посмотреть ответы 2

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

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.

oksukbaevak

Информатика

4,4(68 оценок)

Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет) program zd; const b=26; var a,c: byte; begin writeln('введите день'); readln(a); if a< b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни} c: =b-a else {иначе вывести смс} writeln('данный день уже прошёл'); writeln('осталось', с, 'дней'); end. вроде бы правильно) извиняюсь за исправления, просто тороплюсь