Створити гру: Запрограмуйте черепашек так, щоб вони, встав перед стартом (15 ліній), почали рухатись з різної швидкістю. В онлайн середовище Trinket, тема "03. Черепашьи бега "підпункт" 3 "Гончие черепашки" Фрагмент коду, який обіцяла показати.
from random import*
from turtle import *
red=Turtle()
red.color('red')
red.shape('turtle') red.speed(randint(0,5)) red.forward(150)

green = Turtle()
green.penup() green.goto(0,-20) green.color('green') green.shape('turtle')
green.pendown()
green.forward(150)​

#include <iostream>

#include <math.h>

#define _USE_MATH_DEFINES

int main(){

 double a,b,c = 1;

 std::cout << "A:"<< std::endl;

 std::cin >> a ;

 std::cout << "B:"<< std::endl;

 std::cin >> b;

 std::cout << "C:"<< std::endl;

 std::cin >> c;

 double x = 2 * std::log(a) - 1 / b / c + std::tan(M_PI * b * c);

 double y = std::cos(0.387 * a) + std::sqrt(std::abs(a + b));

 std::cout << "x = " << x << "\n" << "y = "<< y << std::endl;

 std::cin >> a;

 return 0;

}

Компилятор MinGW

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст, завершив его точкой:'+NewLine);
  s:=s[:Pos('.',s)];
  var k:=s.ToWords.Select(w->w.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]*\b'))
    .Where(w->w.Count>0).Count;
  Writeln('Найдено слов: ',k)
end.

Пример
Введите текст, завершив его точкой:
Карл у Клары украл кораллы Клара у Карла украла кларнет.
Найдено слов: 4

Примечание: Буквы латинского алфавита также обрабатываются.