1) Строка, состоящая из двух слов,вводится с клавиатуры. Составить программу, которая позволяет переставить местами слова строки. 2) Составить программу, которая определяет каких слогов, "ма" или "па" больше во введенной строке и на сколько.
3) Напишите программу, которая засменяет и прописные буквы "о" и "О" на символ " * "
4) Напишите программу, которая определит количество предложений в тексте
5) Напишите программу, которая определит, сколько слов в тексте начинается на букву "а"
#include <iostream>
typedef long long ll;
using namespace std;
bool ll_is_valid(ll t, ll N, ll x, ll y)
{
return t / x + (t - x) / y >= N;
}
ll f(ll N, ll x, ll y)
{
ll R = 1;
while (!ll_is_valid(R,N,x,y)) R *= 2;
ll L = R / 2;
while(R - L > 1)
{
ll M = (L + R) / 2;
if (!ll_is_valid(M,N,x,y)) {L = M;}
else {R = M;}
}
return R;
}
int main()
{
ll N,x,y;
cin >> N >> x >> y;
if(x > y) swap( x, y );
cout << f(N, x, y) << std::endl;
}
begin
var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10);
a.Println;
Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum)
end.
Пример
Кол-во элементов: 8
-0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287
Сумма положительных равна 0.520270080547906
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3);
a.Println;
Writeln('Среднее значение равно ',a.Average)
end.
Пример
Кол-во элементов: 6
2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884
Среднее значение равно 2.60310938268424