Ответ: утконос. Просто убирай все одинаковые буквы.
Var
flag,i,x,y:integer;
begin
x:=Random(0,99);
flag:=0;
for i:=1 to 10 do begin
write('Введите ваше число ');
readln(y);
if (x = y) then begin
flag:=1;
writeln('Дан правильный ответ!');
break
end
else
if (x < y) then
writeln('Попробуйте взять число поменьше')
else
writeln('Попробуйте взять число побольше');
end;
if flag = 0 then writeln('Все попытки исчерпаны');
end.
А:=3
b:=5
c:=9
3mod3=0 (делится нацело), значит v:=1*3=3; t:=1; u:=3
5mod3=0 (не делится нацело) - не верно, действия не выполняются
9mod3=0 (делится нацело), значит v:=3*9=27; t:=2; u:=3+9=12
v=27 t=2 u=12
Система NTFS
_____________