Ответы на вопрос:
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.
Популярно: Информатика
-
qqvikaglazynova14.08.2022 06:02
-
egortupi17.12.2020 04:14
-
Аврoра01.11.2022 10:25
-
abnihggdm20.03.2021 07:45
-
timahipoDrakeylol29.10.2020 23:01
-
дианакис05070621.11.2022 10:16
-
katerok2309200007.07.2021 00:27
-
vdovitskaya8819.03.2022 19:15
-
Красотка79426.03.2023 11:29
-
love212101.10.2021 09:47