SaveText.Ru

Без имени
  1. var r,k:integer;
  2. begin
  3.   k:=random(10)+1;
  4.   writeln('угадай число от 1..10');
  5.   readln(r);
  6.   if (k=r)then
  7.     writeln('угадал!молодец!!')
  8.  else writeln('не верно!1');
  9. end.

Share with your friends:

Распечатать