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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

#include <iostream> 
#include <cmath> 
#include <string> 
using namespace std; 
double sqr(int x) 
return (x*x*1.0); 
int main() 
freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
int n,i,x,a[100010]; 
cin>>n; 
for (i=1; i<=n; i++) 
cin>>a[i]; 
if (a[i]==1) x=i; 
for (i=x; i<=n; i++) 
cout<<a[i]<<" "; 
for (i=1; i<x; i++) 
cout<<a[i]<<" "; 

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

#include <iostream> 
#include <cmath> 
#include <cstdio> 
#include <stdio.h> 
#include <math.h> 
#include <cstdlib> 
#include <string> 
using namespace std; 
int a[755][755], m1[755], m2[755], n; 
int i, j, m; 

int mn(int i) 
int res = 1111; 
for (int j = 1;j<=m;j++) 
if (res > a[i][j]) 
res = a[i][j]; 
return res; 

int mx(int i) 
int res = -1111; 
for (int j = 1;j <= n; j++) 
if (res < a[j][i]) 
res = a[j][i]; 
return res; 

int main() 
freopen("input.txt","r", stdin); 
freopen("output.txt","w", stdout); 
cin>>n>>m; 
int ans = 0; 
for (i = 1;i<=n;i++) 
for (j = 1;j<=m;j++) 
cin>>a[i][j]; 
for (i = 1; i<=n;i++) 
m1[i] = mn(i); 
for (j = 1; j <=m;j++) 
m2[j] = mx(j); 
for (i = 1;i<=n;i++) 
for (j = 1;j<=m;j++) 
if (a[i][j] == m1[i] && a[i][j] == m2[j]) 
ans++; 
cout<<ans; 
return 0; 
C++ | Просмотров: 3422 | Загрузок: 1 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

#include <iostream> 
#include <string> 
using namespace std; 
int even=0,odd=0,i; 
int main() 
{freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
string a; 
cin>>a; 
for(i=0;i<a.length();i++){ 
{if((i + 1) % 2 == 0)even+=a[i]-'0'; 
if((i + 1)%2==1)odd+=a[i]-'0';} 
}if((odd-even)%11==0)cout<<"YES"; 
else cout<<"NO"; 

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

var a,b:array[0..3] of integer; 
i,j:integer; 
f:boolean; 

begin 
assign(input,'input.txt');reset(input); 
assign(output,'output.txt');rewrite(output); 
readln(a[1],a[2],a[3]); 
readln(b[1],b[2],b[3]); 
for i:=1 to 2 do 
for j:=1 to 2 do 
begin 
if a[j]>a[j+1] then 
begin 
a[0]:=a[j];a[j]:=a[j+1];a[j+1]:=a[0] 
end; 
if b[j]>b[j+1] then 
begin 
b[0]:=b[j];b[j]:=b[j+1];b[j+1]:=b[0] 
end; 
end; 
f:=false; 
for i:=1 to 3 do 
if a[i]<>b[i] then f:=true; 
if (not f) then begin writeln('Boxes are equal');halt end; 
f:=false; 
for i:=1 to 3 do 
if (a[i]<b[i]) then f:=true; 
if (not f) then begin writeln('The first box is larger than the second one');halt end; 
f:=false; 
for i:=1 to 3 do 
if (a[i]>b[i]) then f:=true; 
if (not f) then begin writeln('The first box is smaller than the second one');halt end; 
writeln('Boxes are incomparable'); 
close(output) 
end.
Pascal | Просмотров: 4635 | Загрузок: 1 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

#include<iostream> 
#include<fstream> 
using namespace std; 

int main() 
ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
int a1,a2,d,c,n; 
cin>>a1>>a2>>n; 
d=a2-a1; 
c=a1+d*(n-1); 
cout<<c; 
return 0; 
}
C++ | Просмотров: 4509 | Загрузок: 0 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

#include<iostream> 
using namespace std; 
int main() 
freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
char s[109]; 
int c=0; 
cin>>s; 
for (int i=0; i<strlen(s); i++) { 
if(s[i]=='8') c+=2; 
if((s[i]=='0')||(s[i]=='6')||(s[i]=='9')) c+=1; } 
cout<<c; 
return 0; 
C++ | Просмотров: 3060 | Загрузок: 1 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

program c; 
var 
n,k:integer; 
begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input);rewrite(output); 
read(n);k:=n div 5; 
case n mod 5 of 
0:write(k,' ',0); 
1:write(k-1,' ',2); 
2:write(k-2,' ',4); 
3:write(k,' ',1); 
4:write(k-1,' ',3); 
end; 
close(output) 
end. 
Pascal | Просмотров: 5178 | Загрузок: 0 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

 #include <fstream> 
#include <vector> 
using namespace std; 
void main() 
ifstream fin("input.txt"); 
ofstream fout("output.txt"); 
int a,b; 
fin>>a; 
int mas[1001]; 
for (int i=0;i<a;i++) fin>>mas[i]; 
fin>>b; 
int submas[1001][2]; 
for(int i=0;i<b;i++) 
fin>>submas[i][0]>>submas[i][1]; 
for(int i=0;i<b;i++) 
for (int j=submas[i][0];j<=submas[i][1];j++) fout<<mas[j-1]<<" "; 
fout<<endl; 
}
}
C++ | Просмотров: 3798 | Загрузок: 1 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

#include <iostream>
 
using namespace std;
 
int compare (const void *a,const void *b)
{
     return (*(int*)a - *(int*)b);
}
 
 
int main()
{
    freopen("input.txt","rt",stdin);
    freopen("output.txt","wt",stdout);
    int a;
    int l=0;
    int m[100001];
    while (cin >> a)
    {
        m[l++]=a;
 
    }
    qsort(m,l,sizeof(int),compare);
    int q=0;
    int k=m[1]-m[0];
    for (int i=1;i<l-1;i++)
    {
        if (m[i+1]-m[i]!=k) { q=1;break; }
 
    }
    if (q==0) cout <<"Yes";else cout <<"No";
    return 0;
}
C++ | Просмотров: 2303 | Загрузок: 0 | Добавил: shum | Дата: 03.07.2012 | Комментарии (0)

 program exp1; 
var f,t:text; 
a:string;d,l,chislo,c,i,k:integer; 
begin 
assign(f,'input.txt'); 
assign(t,'output.txt'); 
reset(f);rewrite(t); 
read(f,a); 
k:=1;l:=1; 
while k<=length(a) do begin 
val(a[k],c,d);chislo:=0; 
while d=0 do begin 
chislo:=chislo*10+c; 
inc(k);val(a[k],c,d);end; 
if chislo=0 
then chislo:=1; 
for i:=1 to chislo do 
if l>39 then begin l:=1;writeln(t,a[k]);end 
else begin inc(l);write(t,a[k]);end;inc(k);end; 
close(f);close(t);end.
Pascal | Просмотров: 5083 | Загрузок: 0 | Добавил: shum | Дата: 16.06.2012 | Комментарии (1)

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


Copyright MyCorp © 2020