Программа "Угадай число" с использованием только оператора ветвления

Задача

Угадать число, которое загадал пользователь, используя только инструкцию if-else.

Решение

Программа на языке Паскаль: 

var	
	n: char;
begin
	write('Think of a number of from 1 to 5 and press Enter');
	readln;
 
	write('The number more then 3? (y/n) '); readln(n);
	if n = 'y' then begin
		write('The number is 4? (y/n) '); readln(n);
		if n = 'n' then
			writeln('The number is 5.');
	end
	else begin
		write('The number is 1? (y/n) '); readln(n);
		if n = 'n' then begin
			write('The number is 2? (y/n) '); readln(n);
			if n = 'n' then
				writeln('The number is 3.');
		end;
	end;
	writeln('Guessed!');
end.

Варианты выполнения программы:

Think of a number of from 1 to 5 and press Enter
The number more then 3? (y/n) n
The number is 1? (y/n) n
The number is 2? (y/n) n
The number is 3.
Guessed!
Think of a number of from 1 to 5 and press Enter
The number more then 3? (y/n) y
The number is 4? (y/n) y
Guessed!

Тема

Условные операторы

Уровень

Простые задачи