Информатика 7 класс(Кумир Постройте анимацию, при которой по холсту движутся два шарика разного
размера с разными скоростями, один – справа налево, второй – снизу вверх, причём при
столкновении с краем холста шарики должны отскакивать от него и двигаться далее в
противоположном направлении . Используйте одну процедуру.

#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

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