Постройте алгоритм угадывания...

Тема в разделе "Информатика", создана пользователем xdonzix, 2 янв 2010.

  1. xdonzix

    xdonzix New Member

    Постройте алгоритм угадывания числа от 1 до 10. Помогите пожалуйста очень срочнонадо!!!
     
    xdonzix, 2 янв 2010
    #1
  2. mykola

    mykola New Member

    var ch,ch1:integer;
    begin
    ch:=random(10)+1;
    writeln('Ugadai vvedi chislo ot 1 do 10');
    readln(ch1);
    if ((ch1 <10) and (ch1 > 0) ) then
    if (ch1=ch)then writeln('Ty ugadal')
    else writeln('Ty ne ugadal, chislo = ',ch)
    else writeln('Error');
    end.
     
    mykola, 3 янв 2010
    #2

Поделиться этой страницей

Наша группа