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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

#include<cstdio> 
#include<cstring> 
#include<cstdlib> 
#include<iostream> 
#include<string> 

using namespace std; 
string s,ss; 
int i,j,p[100050],n,n1; 
char tmp[100050]; 
int main() 
freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
scanf("%s\n",tmp);s = string(tmp); 
scanf("%s",tmp);ss = string(tmp); 
s = ss + "$" + s; 
n1 = ss.size(); 
n = s.size(); 
for (i = 1; i < n;i++) 
j = p[i - 1]; 

while (j > 0 && s[i] != s[j]) 
j = p[j-1]; 

if (s[i] == s[j]) 
p[i] = j + 1; 
for (i = 0; i < n; i++) 
if (p[i] == n1) printf("%d ",i - 2 * n1); 
return 0; 
C++ | Просмотров: 2514 | Загрузок: 0 | Добавил: shum | Дата: 16.06.2012 | Комментарии (0)

var input,output:text;i,q,n,j,t,x,y:longint; ar:array[1..100,1..100] of longint;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
readln(input,n);
for i:=1 to n*2-1 do begin if i mod 2=1 then begin x:=0;y:=i+1; 
for t:=1 to i do begin inc(x);
dec(y);if (x>0) and (x<=n) and (y>0) and (y<=n) then begin inc(q);ar[x,y]:=q;end;end;end 
else begin y:=0;x:=i+1;
for t:=1 to i do begin inc(y);dec(x);if (x>0) and (x<=n) and (y>0) and (y<=n) then begin inc(q);ar[x,y]:=q;end;end;end;end;

for i:=1 to n do begin for j:=1 to n do begin write(output,ar[i,j],' ');end;writeln(output); end;

close(output);close(input);
end.
Pascal | Просмотров: 3214 | Загрузок: 0 | Добавил: shum | Дата: 16.06.2012 | Комментарии (0)

#include <fstream> 
using namespace std; 

ifstream cin ("input.txt"); 
ofstream cout ("output.txt"); 
int main() 

int a,b,c,d; 
cin >> a >> b >> c ; 
d = a*b*c*2; 
cout << d ; 
return 0; 
}
C++ | Просмотров: 3249 | Загрузок: 1 | Добавил: shum | Дата: 16.06.2012 | Комментарии (0)

#include <fstream> 
using namespace std; 
int main () 
ifstream fin("input.txt"); 
ofstream fout("output.txt"); 
int a[1001], n, i; 
fin >> n; 
for (i=1;i<=n;i++) { fin >> a[i]; } 
for (i=n;i>0;i--) { fout << a[i] << " "; } 
return 0; 

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

#include<fstream> 
using namespace std; 
int main(){ 
ifstream fin("input.txt"); 
ofstream fout("output.txt"); 
long long a,b; 
fin>>a>>b; 
do{ 
if(a>=b){a=a%b;} 
else{b=b%a;} 

while(a*b>0); 
fout<<a+b; 
}
C++ | Просмотров: 2003 | Загрузок: 0 | Добавил: shum | Дата: 15.06.2012 | Комментарии (0)

var i,ch,m,s,n:integer; 
ms:array[1..100] of longint; 

procedure sort; 
var j,i,mem:longint; 
begin 
for i:=1 to n-1 do 
for j:=1 to n-1 do 
if ms[j]>ms[j+1] 
then begin mem:=ms[j]; 
ms[j]:=ms[j+1]; 
ms[j+1]:=mem; 
end; 
end; 

begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
readln(n); 
for i:=1 to n do begin 
readln(ch,m,s); 
ms[i]:=ch*3600+m*60+s; 
end; 

sort; 

for i:=1 to n do begin 
ch:=ms[i] div 3600; 
m:=ms[i] mod 3600; 
s:=m mod 60; 
m:=m div 60; 
writeln(ch,' ',m,' ',s) 
end; 
end. 
Pascal | Просмотров: 4739 | Загрузок: 0 | Добавил: shum | Дата: 15.06.2012 | Комментарии (0)

#include <iostream> 
using namespace std; 
int main() 

freopen("input.txt","r",stdin); 
freopen("output.txt","w",stdout); 
int n,k,d[110],d0[110]; 
cin>>n>>k; 
d[1]=k-1; 
d0[1]=0; 
for (int i=2;i<=n;i++){ 
d[i] = (d[i-1]+d0[i-1])*(k-1); 
d0[i] = d[i-1]; 

cout<<d[n]+d0[n]; 
return 0; 
C++ | Просмотров: 1608 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

#include <iostream> 
using namespace std; 
int main() 
freopen ("input.txt","r",stdin); 
freopen ("output.txt","w",stdout); 
int n,x; 

int k1=0,k0=0; 
cin >> n; 

while (n > 0){ 
cin >> x; 
if (x == 0){k0=k0+1;} 
else {k1=k1+1;} 
n=n-1; 
if (k0 < k1) cout << k0; 
else cout<<k1; 


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

#include<fstream> 
using namespace std; 

int x[5],y[5]; 

bool cw(int i, int j, int tx, int ty) 

return (x[j]-x[i]) * (ty-y[i]) - (y[j]-y[i]) * (tx-x[i]) < 0; 


bool d(int i, int j, int tx, int ty) 

return (x[j]-x[i]) * (ty-y[i]) - (y[j]-y[i]) * (tx-x[i]) == 0; 


int main() 

ifstream in("input.txt"); 
ofstream out("output.txt"); 


int tx,ty; 
int n=3; 
for(int i=0; i<n; ++i) 

in>>x[i]>>y[i]; 

in>>tx>>ty; 
x[n]=x[0]; 
y[n]=y[0]; 
x[n+1]=x[1]; 
y[n+1]=y[1]; 

bool sign=cw(0,1,tx,ty); 

for(int i=1; i<=n; ++i) 

if(cw(i, i+1, tx, ty)!=sign && !d(i, i+1, tx, ty)) 
{out<<"Out"; return 0;} 


out<<"In"; 
return 0; 
}
C++ | Просмотров: 1972 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

var n:longint; 
begin 
assign(input, 'input.txt'); 
reset(input); 
assign(output, 'output.txt'); 
rewrite(output); 
readln(n); 
writeln((n-1)*(n-2)) 
end.
Pascal | Просмотров: 3156 | Загрузок: 0 | Добавил: shum | Дата: 14.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020