Найти алгоритм решения задачи и реализовать его с помощью оператора(операторов) if-then-else:
Машина задумывает два числа от 0 до 9. Игрок пытается их угадать, вводя свои два числа. Если они совпали (в любом сочетании) , то игрок выиграл.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
