Проста програма "Вгадай число"
var
a,b: integer;
begin
randomize; a := random(lOO);
while a <> b do begin
write('Bведи число: ');
readln(b);
if b > a then
writeln(‘Много’)
else
if b < a then
writeln(‘Мало’)
else
writeln(‘Угадал’);
end;
readln
end.
Складна програма «Вгадай число»
program ygadai;
var
x,a,s,e,r,z:integer;
begin
randomize;
write('введите диапазон числа от 0 до ');
readln(s);
a:=random(s);
writehi('введите к-во попыток');
readln(z);
for х:=1 to z do
begin
writeln(‘пoпpoбyйтe угадать число которое загадал компьютер. Диапазон числа от 0 до <,s);
readln(e);
if а=е then begin
writeln(‘Вы угадали! Поздравляем’);
r:=r+l;
break
end;
end;
if r<>l then
writeln('Сегодня не ваш день вы не угадали’);
readln
end.