Тема: Угадай
Показать сообщение отдельно
Старый 30.12.2010, 16:41   #2 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Алгоритм далеко не оптимальный, но рабочий:
Код:
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.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070