Дана последовательность A из 12 элементов типа - вопрос №2140380612 от Pomogashka2002 21.04.2020 06:02

Question

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

Pomogashka2002 · Answer

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.

Дана последовательность A из 12 элементов типа Char. Сформировать последовательность В из 12 элемент