Question

Дана последовательность A из 12 элементов типа Char. Сформировать последовательность В из 12 элементов типа Boolean следующим образом: если элемент ai - буква . то элементу bi присвоить значение True, если же ai - цифра, то bi присвоить значение False.

Answer 1

var

a: array [1..12] of char;

b: array [1..12] of boolean;

i: integer;

begin

for i:=0 to 12 do read(a[i]);

for i:=0 to 12 do

begin

if a[i] in ['0'..'9'] then

b[i] := False

else

b[i] := True

end;

for i:=0 to 12 do writeln(b[i]);

end.