From turtle import * from random import *

t = Turtle()

t.penup()

t.goto(-100,100)

t.pendown()

t.speed(100)

#поле

for i in range(0,15):

t.write(i)

t.right(90)

t.forward(200)

#возврат

t.left(180)

t.forward(200)

t.right(90)

t.forward(20)

first=Turtle()

first.shape("turtle")

first.color("red")

first.penup()

first.goto(-120,70)

first.pendown()

second=Turtle()

second.shape("turtle")

second.color("blue")

second.penup()

second.goto(-120,40)

second.pendown()

third=Turtle()

third.shape("turtle")

third.color("yellow")

third.penup()

third.goto(-120,-20)

third.pendown()

four=Turtle()

four.shape("turtle")

four.color("green")

four.penup()

four.goto(-120,-50)

four.pendown()

five=Turtle()

five.shape("turtle")

five.color("purple")

five.penup()

five.goto(-120,-80)

five.pendown()

#зрители

bolCount = randint(1,10)

for i in range(0, bolCount):

bol = Turtle()

bol.shape("turtle")

bol.color(randint(0,255),randint(0,255),randint(0,255))

bol.penup()

bol.goto(-90+25*i, -120)

bol.pendown()

bol.left(90)

x_first=0

x_second=0

x_third = 0

x_four = 0

x_five = 0

text = input('Прогноз, какая черепаха победит?')

tex = Turtle()

tex.penup()

tex.goto(-120,120)

tex.hideturtle()

tex.write('Ты считаешь, что победит ' + text, font = ('Arial', 12, 'bold'))

while ((x_first<305) and (x_second<305) and (x_third<305) and (x_four<305) and x_five<305):

first_step = randint(1,5)

x_first += first_step

first.forward(first_step)

second_step = randint(1,5)

x_second += second_step

second.forward(second_step)

third_step = randint(1,5)

x_third += third_step

third.forward(third_step)

four_step = randint(1,5)

x_four += four_step

four.forward(four_step)

five_step = randint(1,5)

x_five += five_step

five.forward(five_step)

по этому коду надо выполнить задание:

С консоли мы можем угадать, какая черепашка победит, а с программы мы можем это однозначно определить!

Давай по завершению гонки выводить в консоль и на экран какая черешка победила.
язык python

Для подсчёта слов в предложении, вот код:

program Slova;
var
 s: string;
 r,i:integer;
begin
 writeln('Введите ваше предложение');
 readln(s);
 s:=s+' ';
 for i:=1 to length(s)-1 do
 if (s<>' ') and (s[i+1]=' ') then
 r:=r+1;
 writeln('В предложении ',r, ' слов. ');
 readln;
end.

Какая буква встречается чаще

Program Bykv;
Var s:String;
    i,k1,k2:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=2 to Length(s)-1 do
     if s[i]=s[1] then inc(k1)
      else if s[i]=s[Length(s)] then inc(k2);
    writeln('Первая буква встречается ',k1);
    writeln('Последняя буква встречается ',k2);
    writeln('Вывод:');
    if k1>k2 then writeln('Первая буква встречается чаще')
     else if k1<k2 then
     writeln('Последняя буква чаще')
      else writeln('Одинаково');
    readln;
End.

Изменить слово петя на иван в строке

program test;
var s,t,z,p:string;j:integer;
begin
writeln('Введите ваше предложение');
readln(s);
write('Введите слово которое хотите заменить: ');
readln(t);
write('Введите замену слову: ', t, ' <> ');
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.

Uses crt;
const
q=1000;var
a:array[1..q,1..q]of integer;
m,n,i,j,c,k,buf:integer;
b:array[1..q]of integer;
begin 
   writeln('n,m ?')   ;
   readln(n,m);
    writeln('как заполнять матрицу ?');     
    writeln(' Нажмите 1 при датчика, 2 - ввод с клавиатуры'); 
{выбор действия при заполнении}                        
readln(c);   
              case c of         
                 1:for i:=1 to n do
                        begin
                            for j:=1 to m do
                               begin
                                   a[i,j]:=random(100);
                                    write(a[i,j]:4);
                                end;
                              writeln;
                         end;
                   2:
                    begin
                     for i:=1 to n do
                        begin
                            for j:=1 to m do
                              readln(a[i,j]);
                         end;
                          clrscr;
                       for i:=1 to n do
                           begin
                               for j:=1 to m do
                                  write(a[i,j]:4);
                               writeln;
                           end;
    end;
                 end;
writeln('формирование массива');
for i:=2 to n do
    begin
       if i mod 2=0 then
               for j:=1 to m do
                     if a[i,j]>2 then
                          begin
                              k:=k+1;
                               b[k]:=a[i,j];
                           end;
      end;
writeln;
for i:=1 to k do
    write(b[i]:4);
writeln;
{сортировка}
for i:=1 to k -1 do
     for j:=i+1 to k do
         if b[i]<b[j]then
             begin
                   buf:=b[i];
                   b[i]:=b[j];
                   b[j]:=buf;
             end;
{вывод массива}
for i:=1 to k do
    write(b[i]:4);
end.