// 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
Примечание: Буквы латинского алфавита также обрабатываются.
#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
// Внимание! Если программа не работает, обновите версию!
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
Примечание: Буквы латинского алфавита также обрабатываются.