Информатика, опубликовано 09.01.2019 16:01
Цепочка из четырёх бусин, помеченных латинскими буквами, формируется по следующему правилу: – на третьем месте цепочки стоит одна из бусин H, E; – на втором месте — одна из бусин D, E, C, которой нет на третьем месте; – в начале стоит одна из бусин D, H, B, которой нет на втором месте; – в конце — одна из бусин D, E, C, не стоящая на первом месте. Определите, сколько из перечисленных цепочек созданы по этому правилу? DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
Ответ оставил: Гость
1. var a: integer;
Begin
if a > 0 then a := a + 1;
write (a);
end.
2. var a: integer;
Begin
if a < 0 then a:= a * 2;
write (a);
end.
3. var a: integer;
Begin
if a <> 0 then a:= a - 4;
write(a);
end.
4. var a: integer;
Begin
if a > 0 then a:= a + 1
else a:= a - 1;
write (a);
end.
5. var a: integer;
Begin
if a = 0 then a:= a + 3
else a:= 0;
write (a);
end.
6. var x, y: real;
if x > y then x:= x*y
else x:= x + y;
write (x);
end.
Begin
if a > 0 then a := a + 1;
write (a);
end.
2. var a: integer;
Begin
if a < 0 then a:= a * 2;
write (a);
end.
3. var a: integer;
Begin
if a <> 0 then a:= a - 4;
write(a);
end.
4. var a: integer;
Begin
if a > 0 then a:= a + 1
else a:= a - 1;
write (a);
end.
5. var a: integer;
Begin
if a = 0 then a:= a + 3
else a:= 0;
write (a);
end.
6. var x, y: real;
if x > y then x:= x*y
else x:= x + y;
write (x);
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01