Решения задач acmp.ru
Главная
Вход
Регистрация
Пятница, 30.10.2020, 04:38Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы

Всего материалов в каталоге: 197
Показано материалов: 31-40
Страницы: « 1 2 3 4 5 6 ... 19 20 »

var n,max,ch,i,i2,c,sum:longint; 
begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input); 
rewrite(output); 
readln(n); 
max:=0; 
ch:=0; 
i2:=0; 
c:=0; 
for i:=1 to n do 
begin 
sum:=0; 
if n mod i=0 then begin 
i2:=i; 
while i2<>0 do 
begin 
c:=i2 mod 10; 
sum:=sum+c; 
i2:=i2 div 10; 
end; 
end; 
if sum> max then begin 
max:=sum; 
ch:=i; 
end; 
end; 
writeln(ch); 
close(output); 
close(input); 
end.
Pascal | Просмотров: 2628 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

#include <fstream> 
#include <string> 
using namespace std; 
int main(){ 
ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
int n; 
string c="7182818284590452353602875"; 
cin>>n; 
if (n==0) 
cout<<3; 
else{ 
cout<<"2."; 
if((int(c[n])-48)>=5) 
c[n-1]=char(c[n-1]+1); 
for(int i=0; i<n; i++){ 
cout<<c[i]; 


return 0; 
C++ | Просмотров: 3838 | Загрузок: 1 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

var 
i,n:longint; 
buf,X:extended; 
a:array[1..1000000]of extended; 

procedure Sort(L,R:Longint); 
var 

j:longint; 

begin 
i:=L; j:=R; X:=a[(i+j)shr 1]; 
repeat 
while a[i]<X do inc(i); 
while a[j]>X do dec(j); 
if i<=j then begin 
buf:=a[i]; a[i]:=a[j]; a[j]:=buf; 
inc(i); dec(j); 
end; 
until i>j; 
if i<R then Sort(i,R); 
if j>L then Sort(L,j); 
end; 

begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input); 
rewrite(output); 
read(input,n); 
for i:=1 to n do read(input,a[i]); 
sort(1,n); 
for i:=1 to n do write(output,a[i]:0:0,' '); 
close(output); 
close(input); 
end. 
Pascal | Просмотров: 2428 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

var i,j,k,n,l:longint; 
x:Array[1..10000] of integer; 

begin 
assign(input,'input.txt');reset(input); 
assign(output,'output.txt');rewrite(output); 
readln(n); 
x[1]:=1; 
l:=1; 
for i:=1 to n do 
begin 
for k:=1 to l do 
x[k]:=x[k]*2; 
for j:=1 to l do 
if x[j]>9 then 
begin 
x[j]:=x[j] mod 10; 
inc(x[j+1]); 
end; 
if x[l+1]<>0 then inc(l); 

end; 

for i:=l downto 1 do 
write(x[i]); 
close(input); 
close(output); 
end. 
Pascal | Просмотров: 2134 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

#include <fstream> 
using namespace std; 
ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
int main() 
int k,d,m,n; 
cin>>k; 
for (int i=0;i<k;i++) 
cin>>n>>m; 
d=19*m+(n+239)*(n+366)/2; 
cout<<d<<endl; 
return 0; 
C++ | Просмотров: 2752 | Загрузок: 1 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

Var a,b,c,maxln:ansistring; 
q:char; 
max: longint; 
begin 
Assign(input,'input.txt'); 
Assign(output,'output.txt'); 
Reset(input); 
Rewrite(output); 
Read(q); 
a:=''; 
b:=''; 
c:=''; 
While q<>' ' do 
begin 
a:=a+q; 
Read(q); 
end; 

Read(q); 
While q<>' ' do 
begin 
b:=b+q; 
Read(q); 
end; 

Read(q); 
While not eoln do 
begin 
c:=c+q; 
Read(q); 
end; 
c:=c+q; 
if length(a)>length(b) then maxln:=a 
else if length(a)<length(b) then maxln:=b 
else if a>b then maxln:=a 
else maxln:=b; 
if length(c)>length(maxln) then maxln:=c 
else if (length(c)=length(maxln)) and (c>maxln) then maxln:=c; 


Writeln(maxln); 
Close(input); 
Close(output); 
end.
Pascal | Просмотров: 4699 | Загрузок: 1 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

Program da; 
type mass=array[0..1002] of longint; 
var f,h:text; m:mass; max,min,a,l,q,b,i,k,n:longint; 
Begin 
assign(f,'input.txt'); 
assign(h,'output.txt'); 
reset(f); 
rewrite(h); 
readln(f,n); 
read(f,m[1+n]); 
m[1]:=m[1+n]; 
read(f,m[2+n]); 
m[2]:=m[2+n]; 
for i:=3 to n do 
read(f,m[i]); 
max:=m[1]+m[2]+m[3]; 
for i:=2 to n+1 do 
Begin 
if m[i]+m[i-1]+m[i+1]>max 
then max:=m[i]+m[i-1]+m[i+1]; 
end; 
writeln(h,max); 
close(f); 
close(h); 
end. 
Pascal | Просмотров: 3136 | Загрузок: 1 | Добавил: shum | Дата: 12.06.2012 | Комментарии (0)

var p1,p2,s,K1,L1,M1,K2,L2,M2:longint; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
readln (K1,L1,M1); 
readln (K2,L2,M2); s:=0;p1:=k1;p2:=k2; 
k1:=K1-l1*k1 div 100; 
k2:=k2-l2*k2 div 100; 
if k1<p1 then s:=s+(p1-k1)*m1; 
if k2<p2 then s:=s+(p2-k2)*m2; 
if k1>k2 then s:=s+(k1-k2)*m1 
else if k2>k1 then s:=s+(k2-k1)*m2; 
write(s); 
end. 
Pascal | Просмотров: 3274 | Загрузок: 1 | Добавил: shum | Дата: 12.06.2012 | Комментарии (0)

#include<iostream> 
#include<cstdio> 
using namespace std; 
long long d[100001],i,n,k; 
int main() 
freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
cin >> n >> k; 
d[0] = 1; 
d[1] = 1; 
for (i = 2; i <= n; i++) 
d[i] = d[i - 1] * i; 
if (n < k) 
cout << 0; 
else 
cout << (d[n] * d[n]) / (d[n - k] * d[n - k] * d[k]); 
return 0; 
C++ | Просмотров: 1604 | Загрузок: 0 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

#include <iostream> 
#include<cstdio> 
using namespace std; 
int main() 
freopen("INPUT.TXT","r",stdin); 
freopen("OUTPUT.TXT","w",stdout); 
int a,b,c=-1,i,n,k=0,m=-1; 
cin>>n; 
for(i=0;i<n;i++) 
cin>>a>>b; 
k++; 
if(b==1 && c<a) 
c=a; 
m=k; 
}} 
cout<<m<<endl; 
return 0; 
}
C++ | Просмотров: 2486 | Загрузок: 1 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

Это интересно!


Copyright MyCorp © 2020