мне Записать блок программы, с которого записываются данные с Pascal в текстовый файл. 2. Ввести с клавиатуры слово и посчитать в нем количество букв "в" и "т". Поиск количества записать в виде функции. 3. Построить равнобедренный треугольник графическими средствами Pascal, закрасить его в желтый цвет.
//PascalABC.NET
var
s1,s2,s3:string;
m,i,i2:integer;
function _case(s:string):integer;
begin if s='тысяча' then _case:=1000; if s='девятьсот' then _case:=900; if s='восемьсот' then _case:=800; if s='семьсот' then _case:=700; if s='шестьсот' then _case:=600; if s='пятьсот' then _case:=500; if s='четыреста' then _case:=400; if s='триста' then _case:=300; if s='двести' then _case:=200; if s='сто' then _case:=100; if s='девяносто' then _case:=90; if s='восемьдесят' then _case:=80; if s='семьдесят' then _case:=70; if s='шестьдесят' then _case:=60; if s='пятьдесят' then _case:=50; if s='сорок' then _case:=40; if s='тридцать' then _case:=30; if s='двадцать' then _case:=20; if s='девятнадцать' then _case:=19; if s='восемнадцать' then _case:=18; if s='семнадцать' then _case:=17; if s='шестнадцать' then _case:=16; if s='пятнадцать' then _case:=15; if s='четырнадцать' then _case:=14; if s='тринадцать' then _case:=13; if s='двенадцать' then _case:=12; if s='одиннадцать' then _case:=11; if s='десять' then _case:=10; if s='девять' then _case:=9; if s='восемь' then _case:=8; if s='семь' then _case:=7; if s='шесть' then _case:=6; if s='пять' then _case:=5; if s='четыре' then _case:=4; if s='три' then _case:=3; if s='два' then _case:=2; if s='один' then _case:=1;
end;
begin
Readln(s1);
i:=Pos(' ',s1);
i2:=Pos(' ',s1,i+1);
if i>0 then if i2>0 then begin s2:=copy(s1,i+1,i2-i-1); s3:=copy(s1,i2+1,length(s1)-i2); end else begin s2:=copy(s1,i+1,length(s1)-i); s3:=''; end;
delete(s1,i,length(s1));
Writeln(_case(s1)+_case(s2)+_case(s3));
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')
Объяснение: