var
a:array [1..20] of real;
i,b,count:integer;
p:real;
begin
a[1]:=0.3; a[11]:=36;
a[2]:=5; a[12]:=13;
a[3]:=68; a[13]:=15;
a[4]:=-3; a[14]:=28;
a[5]:=32; a[15]:=-0.7;
a[6]:=-80; a[16]:=-36;
a[7]:=-9; a[17]:=-0.3;
a[8]:=-26; a[18]:=8;
a[9]:=-9; a[19]:=15;
a[10]:=40; a[20]:=-7;
b:=5; count:=0; p:=1;
for i:=1 to 20 do
begin
write(a[i],' ');
if ) then
begin
inc(count);
p:=p*a[i];
end;
end;
writeln;
writeln('count: ',count,' Pr: ',p);
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n, k1 = 0,k2 = 0;
cin >> n;
int b = 0;
vector<int> a;
for(int i = 0; i < n; ++i){
cin >> b;
a.push_back(b);
}
for(int i = 0; i < a.size(); ++i)
if(!(a.at(i)%2==0)){
cout << a.at(i) << " ";
k1++;
}
cout << endl;
for(int i = 0; i < a.size(); ++i)
if(a.at(i)%2==0){
cout << a.at(i) << " ";
k2++;
}
cout << endl;
if(k1 > k2)
cout << 3;
else
cout << 4;
return 0;
}
var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
begin
read(f,c);
s:=s+c;
end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.
Пример:
Файл data.pas:
130384565486 10254 658
Результат работы программы:
684565483031