Модератор: Модераторы
Vadim писал(а):И Вы думаете, что без текста программы Вам кто-нибудь что-нибудь скажет по этому поводу?
var S : String;
B : Boolean;
begin
Writeln(’Введите “1” для TRUE и прочее – для FALSE’);
Readln(S);
if S=’1’ then B:= true else B:= false;
end.
var S : String;
B : Boolean;
begin
Writeln(’Введите “1” для TRUE и прочее – для FALSE’);
Readln(S);
if S=’1’ then B:= true else B:= false;
Writeln(B);
end.
SSerge писал(а):или вы о правильности работы с национальщиной в UnicodeString (UTF16)?
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: Vlad04 и гости: 4