10000+5000+600+90+4
ну это в сумме разрядных слогаемых, я не знаю подойдет или нет
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.
Сложноооо невозможно это нереальноооооооооооооооооооо прости но я незнаю
Картофель, картошка, как удобно)
<span>1)АГБ
Нарушается правило "</span>на первом месте стоит одна из бусин Б,В,Г<span>"
2)ВАА
Нарушается правило "</span>На третьем месте - одна из бусин А,В,Г, не стоящая в цепочке на первом или втором месте<span>"
3)БГВ
Нарушается правило "</span><span>На втором - одна из бусин А,Б,В</span><span>"
4)ГБА
Все правила выполнены.
Ответ: 4)ГБА</span>