Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double e = 2.71828182846;
double x = 0.29;
double y = atan(pow(pow(x * e , x), 3));
cout << y;
return 0;
}
Var
m: array [1 .. 16] of integer;
i: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(31) + 30;
end;
writeln('Вот Ваш массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
readln;
end.
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.