Угадай

[jax]

Угадай

Здраствуйте,с наступающем!Если есть желание помоч,то помогите, нужно написать программу в PascaleABC. задание токое: написать программу, которая задумывает число в диапозоне от 1 до 10 и предлогает пользователю угодать число за 5 попыток.

 

[shrek=)]

Алгоритм далеко не оптимальный, но рабочий:

var
k,s,c:integer;
begin
randomize;
c:=random(10);
s:=0;
while s<>5 do begin
writeln ('enter');
readln (k);
if k=c then writeln ('ugadal') else
writeln ('enter');
readln (k);
inc(s);
end;
readln
end.

 

[jax]

спасибо большое,но у меня вопрос, а если я не угодаю с 5-ти раз,что тогда??

 

[shrek=)]

Программа просто вылетает и все.