program sam;
uses crt;
type tmasi=array[1..50]of integer;
var ch:integer;
ss,s,k,i:byte;
z:tmasi;
begin
write('Ââåäè ÷èñëî:'); readln(ch);
i:=0;
s:=0;
ss:=0;
while ch <>0 do
begin
inc(i);
z[i]:=ch mod 10;
ch:=ch div 10;
end;
k:=i;
for i:=1 to k do
if z[i]=4 then inc(s)else
if z[i]=7 then inc(ss);
if (s=0)and(ss=0)then writeln(' ÷èñëå íåò ÷èñåë 4 è 7') else
if (s<>0)and(ss<>0)then writeln(' ÷èñëå ïðèñóòñâóþò ÷èñëà 4 è 7');
if ((s<>0)and(ss=0))or((s=0)and(ss<>0))then writeln(' ÷èñëå ïðèñóòñòâóþò ëèáî òîëüêî 4 ëèáî òîëüêî 7');
end.
Объяснение:
Надеюсь я правильно поняла условие задачи)
import turtle
t = turtle.Pen()
number = input("Число полос: (1-5)")
#Рисование фигуры
t.up()
t.forward(200)
def lines(filled,color1):
if filled == True:
t.begin_fill()
for line in range(1,3):
t.color(color1)
t.down()
t.backward(20)
t.left(90)
t.forward(100)
t.left(90)
if filled == True:
t.end_fill()
#Передача цвета
def line(color):
num = lines(True,color)
num1 = lines(False,'#000000')
if number == '1':
line('#000000')
elif number == '2':
line('#000000')
t.backward(20)
line('#808080')
elif number == '3':
line('#000000')
t.backward(20)
line('#696969')
t.backward(20)
line('#808080')
elif number == '4':
line('#000000')
t.backward(20)
line('#696969')
t.backward(20)
line('#808080')
t.backward(20)
line('#A9A9A9')
elif number == '5':
line('#000000')
t.backward(20)
line('#696969')
t.backward(20)
line('#808080')
t.backward(20)
line('#A9A9A9')
t.backward(20)
line('#C0C0C0')
elif number == '6':
line('#000000')
t.backward(20)
line('#696969')
t.backward(20)
line('#808080')
t.backward(20)
line('#A9A9A9')
t.backward(20)
line('#C0C0C0')
t.backward(20)
line('#D3D3D3')
elif number == '7':
line('#000000')
t.backward(20)
line('#696969')
t.backward(20)
line('#808080')
t.backward(20)
line('#A9A9A9')
t.backward(20)
line('#C0C0C0')
t.backward(20)
line('#FFFFFF')
Объяснение:
