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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

Всего материалов в каталоге: 197
Показано материалов: 171-180
Страницы: « 1 2 ... 16 17 18 19 20 »

var n:integer; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read (n); 
write(n) 
end. 
Pascal | Просмотров: 5667 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f1,f2:text;
n,k,s,i,s1:integer;
a:array [1..500] of integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n,k);
s:=k;
for i:=1 to n do
    a[i]:=1;
for i:=1 to n-1 do
    begin
    a[s]:=0;
    s1:=0;
    while(s1<>k)do
        begin
        s:=s+1;
        if(s>n)then s:=s-n;
        if a[s]=1 then s1:=s1+1;
        end;
    end;
for i:=1 to n do
    if a[i]=1 then writeln(f2,i);
close(f1);
close(f2);
end. 
Pascal | Просмотров: 5014 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f1,f2:text;
i,n,y,x1,x0:integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
for i=1 to n do
    begin
    readln(f1,y);
    if(y=1)then x1=x1+1 else x0=x0+1;
    end;
if(x1x0)then writeln(f2,x0) else writeln(f2,x1);
close(f1);
close(f2);
end.
Pascal | Просмотров: 5101 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var a,b,c,s,n:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
s:=n div 6;
a:=s;
c:=s;
b:=(a+c)*2;
writeln(f2,a,' ',b,' ',c);
close(f1);
close(f2);
end.
Pascal | Просмотров: 3921 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var i,j,min,max,tmp: integer;
    t: text;

begin
     assign(t,'input.txt');
     reset(t);
     readln(t,i);
     min:=30000;
     for j:=1 to i do begin
         read(t,tmp);
         if min>tmp then min:=tmp;
         if max<tmp then max:=tmp;
     end;
     close(t);
     assign(t,'output.txt');
     rewrite(t);
     writeln(t,min,' ',max);
     close(t);
end.
Pascal | Просмотров: 4109 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var c: char;
    f: text;

begin
     assign(f,'input.txt');
     reset(f);
     readln(f,c);
     close(f);
     assign(f,'output.txt');
     rewrite(f);
     case c of
          'q': writeln(f,'w');
          'w': writeln(f,'e');
          'e': writeln(f,'r');
          'r': writeln(f,'t');
          't': writeln(f,'y');
          'y': writeln(f,'u');
          'u': writeln(f,'i');
          'i': writeln(f,'o');
          'o': writeln(f,'p');
          'p': writeln(f,'a');
          'a': writeln(f,'s');
          's': writeln(f,'d');
          'd': writeln(f,'f');
          'f': writeln(f,'g');
          'g': writeln(f,'h');
          'h': writeln(f,'j');
          'j': writeln(f,'k');
          'k': writeln(f,'l');
          'l': writeln(f,'z');
          'z': writeln(f,'x');
          'x': writeln(f,'c');
          'c': writeln(f,'v');
          'v': writeln(f,'b');
          'b': writeln(f,'n');
          'n': writeln(f,'m');
          'm': writeln(f,'q');
     end;
     close(f);
end.
Pascal | Просмотров: 3042 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (2)

var s,p,x,y,x1:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
rewrite(f2);
reset(f1);
read(f1,s,p);
for x:=1 to 30000 do
begin
  y:=s-x;
  x1:=x*y;
  if(x<=y) and (x1=p) then write(f2,x,' ',y);
end;
close(f1);
close(f2);
end. 
Pascal | Просмотров: 3415 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f1,f2:text;
x:string;
a,code:integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,x);
val(x[2],a,code);
if((a mod 2 = 1) and ((x[1]='A') or (x[1]='C') or (x[1]='E') or (x[1]='G')))
or ((a mod 2 = 0) and ((x[1]='B') or (x[1]='D') or (x[1]='F') or (x[1]='H')))
then writeln(f2,'BLACK') else writeln(f2,'WHITE');
close(f1);
close(f2);
end.
Pascal | Просмотров: 2459 | Загрузок: 2 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var x,i,j,y,a,a1,a2,a3,a4,b,b1,b2,b3,b4:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a1,b1,a2,b2,a3,b3,a4,b4);
a:=a1+a2+a3+a4;
b:=b1+b2+b3+b4;
if a>b then write(f2,'1');
if a<b then write(f2,'2');
if a=b then write(f2,'DRAW');
writeln(a);writeln(b);
close(f1);
close(f2);
end. 
Pascal | Просмотров: 4259 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
n: longint; 
f: text; 
begin 
assign(f, 'Input.txt'); 
reset(f); 
read(f, n); 
close(f); 
assign(f, 'output.txt'); 
rewrite(f); 
if (n div 100000)+((n div 10000) mod 10)+((n div 1000) mod 10)=((n div 100) mod 10)+((n div 10) mod 10)+(n mod 10) 
then write(f, 'YES') else write(f, 'NO'); 
close(f); 
end.
Pascal | Просмотров: 4669 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020