Var
s:string;
begin
readln(s);
if s='Yes' then
writeln('True')
else writeln('False');
end.
Похожие записи/страницы:
- Написать процедуру/функцию на языке программирования для определения количества пробелов в заданной текстовой…
- Для делимости числа на 4 необходимо, чтобы число из последних двух чисел делилась на4. Написать функцию проверки…
- Написать процедуру/функцию определения является ли заданный символ цифровым символом - Pascal(Паскаль)
- Написать процедуру/функцию определения является ли заданный символ не цифровым символом - Pascal(Паскаль)
- Написать процедуру/функцию определения является ли заданный символ символом «пробел» - Pascal(Паскаль)
- Написать процедуру/функцию определения является ли заданный символ символом не «пробел» - Pascal(Паскаль)
- Написать процедуру/функцию для определения количества цифровых символов в заданной текстовой строке - Pascal(Паскаль)
- Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется…