Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Лотерея

Автор: Anastacia Adesso 13.11.2006 15:13

Не знаете, как вот это переделать, чтоб комп говорил, сколько чисел у пользователя совпало с компом?

Это лотерея Кено 20 из 62.
Прикрепленный файл  UZD3.PAS ( 757 байт ) Кол-во скачиваний: 509

Автор: volvo 13.11.2006 15:41

var
  count: integer;
...
  if ke=polz then writeln('Ty vyigral!')
  else begin
    writeln('Ty ne vyigral!');
    count := 0;
    for i := 1 to 62 do
      if (i in polz) and (i in ke) then inc(count);
    writeln(count, ' matches ...');
  end;


Автор: Anastacia Adesso 13.11.2006 15:50

volvo
спасибо!!!