Исходник программы для определения простоты числа, то есть простое оно или нет. Присутствует тип boolean - логический тип, который может выдавать только True и False (Да и Нет). Есть цикл с параметром - FOR. Простое число - это то число, которое имеет делители только себя и 1. Увидеть исходный код и скачать исходник можно дальше.
Исходный код программы определения простоты числа:
var
N: integer;
IsSimple: boolean; //Логический тип boolean - либо да, либо нет
begin
writeln('Введите число: ');
readln(N);
IsSimple := True;
for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N)
if N mod i = 0 then
begin
IsSimple := False;
break;
end;
if IsSimple then
writeln('Число ',N,' простое')
else writeln('Число ',N,' составное');
end.Скачать исходник: prostoch.pas