Проста програма "Вгадай число". Сторінка 139. Вправа 5


Проста програма "Вгадай число"

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.