<em>Было занятно сделать все это в виде одного оператора)))</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
<u>Пример</u>
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
5МБайт*1024=5120Кбайт
5120Кбайт/48сек=106.66 Кбайт
106.66 * 9 = 959.94 Кбайт
странно конечно что целое число не получается
var a, b, c, n: integer;
begin
readln(a, b, c);
if a > b then n:= b else n:= a;
if n > c then n:= c;
writeln(n);
end.
#include <iostream>
using namespace std;
int main()
{
double a,b;
cin>> a >> b;
if(a>b) cout << "Перше число більше";
else cout << "Друге число більше";
return 0;
}