Турбо Паскаль программа

Question

Надо составить программу на Паскале. Дано - "Продолжить работу? " да (1) и нет (0). Если да то "Я готов к работе", а если нет то "Работа завершена"

evgenii_iudin_130 · Accepted Answer

program p1;
var a:boolean;
begin
write('Продолжить работу? ');
readln(a);
if a=1 then
writeln('Я готов к работе')
else
writeln('Работа завершена');
end.
могут быть ошибки по синтаксису, но они легко устраняются в самом редакторе кода... писал не проверяя на программе

white_coder · Answer

program p1;
var a:boolean;
begin
write('Продолжить работу? ');
readln(a);
if a<>1 then
writeln('Я готов к работе')
else
if a<>0 then
writeln('Работа завершена');
else
writeln('Введите 1 или 0');
end.