Разберите и выполните задачи на использование цикла Repeat

Разберите и выполните задачи на использование цикла Repeat

1 задача: Проверка, является ли введенное с клавиатуры целое число простым

program prost;

var

n: integer;

d: integer;

r: integer;

begin

write('Введите целое число-> ');

readln(n);

d:=2; { сначала будем делить на два }

repeat

r:=n mod d;

if r<>0 { n не разделилось нацело на d }

then d:=d + 1;

until r=0; { пока не нашли число, на которое делится n }

if d=n

then

writeln( n,' — простое число. ')

else

writeln(n,' — не простое число.');

end.

2 задача Игра "Угадай число"

const

NPOP=5; { количество попыток, предоставляемое игроку }

var

comp: integer; { число, "задуманное" компьютером }

igrok: integer; { вариант игрока }

n: integer; { кол-во попыток, сделанное игроком }

begin

Randomize; { инициализация генератора случайных чисел }

comp:=Random(9)+1; { компьютер задумал число }

writeln('Игра "Угадай число".');

writeln('Компьютер "задумал" число от 1 до 10.');

writeln('Угадайте его за ',NPOP,' попыток.');

writeln('Введите число и нажмите <Enter>.');

repeat

n:=n+l;

write ('->' ) ;

readln(igrok);

until(n = NPOP) or(comp = igrok);

if comp = igrok

then

writeln('Вы выиграли!')

else

writeln('Вы проиграли! Компьютер задумал число ',comp);

readln;

end.