Для сдачи экзаменов необходимо знание или везение написать не языке логики

253

266

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

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

garik67456

Информатика

4,8(51 оценок)

На мой взгляд нет так как если ты умный ты справишься конечно же с логики и капельку везния!

oksa4va

Информатика

4,5(32 оценок)

Var n, i, d: integer; found: boolean; begin d: =1; found: =false; writeln('введите целое число больше единицы'); readln(n); if n mod 2 = 0 then d : = n div 2 else begin i: =(n div 2)-1; while (found=false) and (i > 2) do begin if n mod i = 0 then begin found: =true; d: =i; end; i: =i-1; end; end; if d=1 then writeln('введённое число оказалось простым') else writeln('наибольший целый делитель введённого числа равен ',d); end.