Быки и коровы

indahazzard · Регистрация: 03.10.2014

Author24 — интернет-сервис помощи студентам

Pascal

var bull, cow, num , i,num1,num2,num3,num4,numa1,numa2,numa3,numa4: integer;
begin
writeln (num);
readln(num);
 
num1:= random(10);
num2:= random(10);
num3:= random(10);
num4:= random(10);
 
num1:= num div 1000;
num2:= num mod 1000 div 100;
num3:= num mod 100 div 10;
num4:= num mod 10;
bull:= 0;
cow:= 0;
if num1=numa1 then
 inc(bull)
 else
 if (num1=numa2) or (num1=numa3) or (num1=numa4) then
 inc(cow);
 if num2=numa2 then
 inc(bull)
 else
 if (num2=numa1) or (num2=numa3) or (num2=numa4) then
 inc(cow);
 if num3=numa3 then
 inc(bull)
 else
 if (num3=numa1) or (num3=numa2) or (num3=numa4) then
 inc(cow);
 if num4=numa4 then
 inc(bull)
 else
 if (num4=numa1) or (num4=numa2) or (num4=numa3) then
 inc(cow);
 writeln('Быков-',bull,',','Коров-',cow);
 readln;
 readln;
 end.

помогите с ошибками.

@ighor · 20.11.2014, 21:43

Pascal

1	3 writeln ('num');

indahazzard · 20.11.2014, 21:50 **[ТС]**

удаляйте тему.
сам сделал)

@APALoff · 21.11.2014, 10:24

Темы по желанию пользователя не удаляются.

Добавлено через 47 секунд
Игра "Быки и коровы"

indahazzard 0 / 0 / 0 Регистрация: 03.10.2014 Сообщений: 29
	20.11.2014, 21:50 [ТС]	3
	удаляйте тему. сам сделал) 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	21.11.2014, 10:24	4
	Темы по желанию пользователя не удаляются. Добавлено через 47 секунд Игра "Быки и коровы" 0