Всем привет помогите решить проблему чтото я непонимаю ))
Код:
var
c:char;
begin
Writeln(Продолжить y/n);
Readln(c);
if c = 'y' then begin Writeln('Yes');
if c = 'n' then begin Writeln('No');
Writeln(c+c);
end;
Вообщемто проблема в том что когда стоят сразу два условия не работает корректно первое тоесть строчка Writeln(c+c) так и не выполнится если char будет равно 'y' , но при = 'n' все выполняется
можно конечно
Код:
Writeln(Продолжить y/n);
Readln(c);
if c = 'y' then Writeln('Yes');
Writeln(c+c);
if c = 'n' then Writeln('No');
Writeln(c+c);
Админ: пользуемся тегами для оформления кода!
но вместо Writeln(c+c); у меня на самом деле очень длинный код )