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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

#include <stdio.h> 
main(){ 
FILE *in,*out; 
in=fopen("input.txt","r"); 
out=fopen("output.txt","w"); 
char N[101][101]; 
char f[101]; 
int n,i,j,x; 
x=0; 
fscanf(in,"%d",&n); 
for(i=0;i<n;i++){ 
for(j=0;j<n;j++){ 
fscanf(in,"%d",&N[i][j]); 
for(i=0;i<n;i++){ 
fscanf(in,"%d",&f[i]); 

for(i=0;i<n;i++){ 
for(j=0;j<n;j++){ 
if(N[i][j] == 1 && f[i]!=f[j]){ 
x++; 
x/=2; 
fprintf(out,"%d",x); 
fclose(in); 
fclose(out); 
C++ | Просмотров: 2778 | Загрузок: 0 | Добавил: shum | Дата: 06.06.2012 | Комментарии (2)

var s:string; n:longint; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
readln(s); 
readln(n); 
if (s='School') and (n mod 2=0) then writeln('No'); 
if (s='School') and (n mod 2=1) then writeln('Yes'); 
if (s='Home') and (n mod 2=0) then writeln('Yes'); 
if (s='Home') and (n mod 2=1) then writeln('Yes'); 
end.
Pascal | Просмотров: 2728 | Загрузок: 0 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

#include<fstream> 
#include<iomanip> 
using namespace std; 
int main() 
ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
int n[5],m[5],l=0,h=0; 
for (int i=0;i<3;i++){ 
cin>>n[i];} 
for (int j=0;j<3;j++){ 
cin>>m[j];} 
for (int i=0;i<3;i++){ 
for (int k=i;k<3;k++){ 

if (n[i]>n[k])swap(n[i],n[k]); 
if (m[i]>m[k])swap(m[i],m[k]); 

for (int i=0;i<3;i++){ 
if (n[i]>m[i])l++; 
if (m[i]>n[i])h++; 
if (l==0 && h==0)cout<<"Boxes are equal"; 
else if (l>h && h==0) cout<<"The first box is larger than the second one"; 
else if (h>l && l==0)cout<<"The first box is smaller than the second one"; 
else cout<<"Boxes are incomparable"; 
///*system("pause")*/; 
return 0; 
}
C++ | Просмотров: 2885 | Загрузок: 0 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

# include <iostream> 
#include<fstream> 
#include<cmath> 
using namespace std; 
main () { 

ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
double x,y,r,x1,y1,r1,d; 
cin>>x>>y>>r>>x1>>y1>>r1; 
d=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1)); 
if (d<=r+r1&&d>=abs(r-r1))cout<<"YES"<<endl; 

else cout<<"NO"<<endl; 

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

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

int main() 
ifstream cin("input.txt"); 
ofstream cout("output.txt"); 
int a,b,c,d=0,e=0,f=0,g=0,h=0; 
cin>>a>>b>>c; 

if (b<c) 
f=a-c; 
g=a-b; 
h=c-b; 
if (h<(f+b)) 
cout<<h-1; 
else 
cout<<f+b-1; 
else 
f=a-c; 
g=a-b; 
h=b-c; 
if (h<(g+c)) 
cout<<h-1; 
else 
cout<<g+c-1; 
return 0; 
C++ | Просмотров: 3574 | Загрузок: 1 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

#include <fstream>
#include <string>
 
 
int main()
{
  char **tablo = NULL;
  int temp = 0;
  bool superBreak = false; 
  size_t rows = 0;
  size_t columns = 0;
  std::ifstream fin("input.txt");
  std::ofstream fout("output.txt");
 
  fin >> rows >> columns; 
  tablo = new char*[ rows ]; 
  for ( size_t i = 0; i < rows; ++i )
  {
     tablo[i] = new char[ columns ];
  } 
  
  std::string curLine; 
  std::getline(fin, curLine ); 
  for (size_t  i = 0; i < rows; ++i ) 
  {
      std::getline( fin, curLine );
      for (size_t j = 0; j < columns; ++j )
      {
         tablo[i][j] = curLine[j];
      }
  }

/*  for (size_t  i = 0; i < rows; ++i )
  {
      for ( size_t j = 0; j < columns; ++j )
      {
         fout << tablo[i][j];
      }
      fout << std::endl;
  }
  return 0;*/
 
  for (size_t i = 0; i < rows && !superBreak; ++i )
  {
      for ( size_t j = 0; j < columns && !superBreak; ++j )
      {
         fin >> temp;
         switch( tablo[i][j] )
         {
            case '.':
               break;
            case 'R':
               if ( temp < 4 )
               {
                  superBreak = true;
               }
               break;
            case 'G':
               if ( !( temp == 2 || temp == 3 || temp == 6 || temp == 7 ) )
               {
                  superBreak = true;
               }
               break;
            case 'B':
               if ( temp % 2 == 0 )
               {
                  superBreak = true;
               }
               break;
            default:
//               throw (-1); 
                            
               break;
         }
      }
  }
 
  if ( !superBreak ) 
     fout << "YES";
  else               
     fout << "NO";
 
  fout.close();
  fin.close();
 
  return 0;
}
C++ | Просмотров: 2044 | Загрузок: 0 | Добавил: shum | Дата: 06.06.2012 | Комментарии (0)

function factor(N:word):string;
Const Size = 322;
Var i, j : Integer;
       ch : String [8];
       F : array [1..Size] of Int64;
       st,m:string;
Begin
 F [Size] := 1;
 for i := 1 to Size - 1 do  F [i] := 0;
 while (N > 1)  do
 begin
   for i := 2 to Size do
   begin
     F [i] := F [i] * N;
     if (F [i] > 99999999)  then
     for j := Size downto 2 do
     begin
       if (F [j] > 99999999)  then
       begin
        Inc (F [j - 1], F [j] div 100000000);
        F [j] := F [j] mod 100000000;
       end;
      end;
    end;
    Dec (N); 
 end;
 i := 2;
st:='';
 while (F [i] = 0) do Inc (i);
 str(F [i],m);
 st:=st+m;
 Inc (i);
 for N := i to Size do
 begin
   str(F [N],ch);
  for j := 1 to 8 - Length (ch) do  st:=st+'0';
   str(F [N],m);
 st:=st+m;
 end;
 factor:=st;
End;

var K:word;

begin
  Assign (Input, 'input.txt');Reset (Input); 
 Assign (Output, 'output.txt');ReWrite (Output);
 Readln(K);
 Writeln(factor(K));
end.

Pascal | Просмотров: 3464 | Загрузок: 0 | Добавил: shum | Дата: 05.06.2012 | Комментарии (0)

#include <iostream>
#include <cmath>

double n, k=0, x, q, w, e;

int main(){
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
scanf("%lf",&n);
q=log10(2.0);
w=log10(n);
e=log10(n+1);
while (1==1){
x=k*q-w;
if(x>=0 && floor(x)>k*q-e) break;
k++;
}
printf("%.0f",k);
}
C++ | Просмотров: 1985 | Загрузок: 0 | Добавил: shum | Дата: 05.06.2012 | Комментарии (1)

var f1,f2:text;
a: array [0..70] of int64;
i,n: byte;
begin
assign(f1, 'input.txt'); reset(f1);
assign(f2, 'output.txt'); rewrite(f2);
read(f1,n);
a[1]:=1;
a[2]:=2;
a[3]:=4;
for i:=4 to n do
a[i]:=a[i-3]+a[i-2]+a[i-1];
writeln(f2,a[n]);
close(f1);
close(f2);
end.
Pascal | Просмотров: 2665 | Загрузок: 0 | Добавил: shum | Дата: 05.06.2012 | Комментарии (0)

var f1,f2:text;
n,b,j,k,i:integer;
a:array [0..11] of integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);

while(n>0) do
     begin
     b:=n mod 10;
     inc(a[b]);
     n:=n div 10;
     end;
     a[11]:=a[0];
for i:=1 to 10 do
    begin
    for j:=1 to a[i] do
        begin
        write(f2,i);
        if(a[0]<>0)then
             for k:=1 to a[0] do
                   begin
                   write(f2,'0');
                   a[0]:=a[0]-1;
                   end;
        end;
    end;
    a[0]:=a[11];
    write(f2,' ');
for i:=10 downto 0 do
    begin
    if(a[i]<>0) then
         for j:=1 to a[i] do
         begin
             write(f2,i);
         end;
    a[i]:=a[i]-1;
    end;
close(f1);
close(f2);
end.

Pascal | Просмотров: 1731 | Загрузок: 0 | Добавил: shum | Дата: 05.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020