Данный код на паскале поможет Вам определить, является ли данное число простым
var f: boolean; n,i: integer; Begin writeln ('vvedite chislo'); readln (n); f:= true; i:=2; while (i<sqrt (n)) and f do begin if n mod i = 0 then f:=false; i:=i+1; end; if f then write ('prostoe') else write ('sostavnoe'); readln end.
Или еще один вариант:
label 1; var f: boolean; n,i: integer; Begin writeln ('vvedite chislo'); readln (n); f:= true; for i:=2 to n-1 do begin if n mod i = 0 then begin f:=false; goto 1 end; end; 1: if f then write ('prostoe') else write ('sostavnoe'); readln end.
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним! Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
