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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

var
a, max, min : integer;
n : longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
max:=-10000; min:=10000; n:=0;
while not eof do
begin
read(a); n:=n+1;
if odd(n) then if a<min then min:=a else
else if a>max then max:=a
end;
write(max+min)
end.
Pascal | Просмотров: 3119 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var r1,r2,r3,n,i:integer; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read(r1,r2,r3); 
for i:=1 to 1 do 
if r1>=r2+r3 
then write('YES') 
else write('NO'); 
end. 
Pascal | Просмотров: 3676 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var n:longint;
    s:string;
begin
    
    assign(input,'INPUT.TXT');
    reset(input);
    assign(output,'OUTPUT.TXT');
    rewrite(output);
 
    read(n);
    str(n,s);
    while length(s)<4 do s:='0'+s;
    if ((n mod 4=0)and(n mod 100<>0))or(n mod 400=0) then write('12/09/',s) else write('13/09/',s);
 
end. 
Pascal | Просмотров: 4187 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var N:integer; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read(N); 
if N>1 then begin 
if N mod 2=0 then write(n div 2) 
else write(n) 
end; 
if N=1 then write('0'); 
end.
Pascal | Просмотров: 6190 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
x1,y1,x2,y2,y,x:integer; 
begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input);rewrite(output); 
read(x1,y1,x2,y2); 
x:=abs(x1-x2);y:=abs(y1-y2); 
if (y=0) or (x=0) then 
write(y+x) 
else 
write(sqrt(y*y+x*x):0:5); 
close(output); 
end.
Pascal | Просмотров: 2872 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var
   c1,c2,c3,c: char;
   i, n: integer;
   f: text;

begin
     c1:='G';
     c2:='C';
     c3:='V';
     assign(f, 'input.txt');
     reset(f);
     readln(f, n);
     close(f);
     for i:=1  to n do
     begin
          c:=c2;
          c2:=c3;
          c3:=c;

          c:=c2;
          c2:=c1;
          c1:=c;
     end;
     assign(f, 'output.txt');
     rewrite(f);
     writeln(f,c1,c2,c3);
     close(f);
end. 
Pascal | Просмотров: 4467 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var c:array [1..201] of integer;
a:string;
f1,f2:text;
i,s,j,b:integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a);
j:=101;
c[j]:=1;
for i:=1 to length(a) do
     begin
     if a[i]='1' then j:=j+1 else j:=j-1;
     c[j]:=1;
     end;
for i:=1 to 201 do
     if c[i]=1 then s:=s+1;
writeln(f2,s);
close(f1);
close(f2);
end.
Pascal | Просмотров: 2757 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var a,x,y,x1,y1,k,c,v,a1,a2,x2,x3,y3,y2,i:longint;
s:string;
f1,f2:text;
begin
   assign(f1,'input.txt');
   assign(f2,'output.txt');
   reset(f1);
   rewrite(f2);
   read (f1,k);
   For i:=1 to k do
     Begin
        read(f1,a);
        a1:=a+1;
        a2:=a-1;
        x:=a1 mod 1000;
        y:=a1 div 1000;
        x3:=x mod 10+(x div 10) mod 10 +x div 100;
        y3:=y mod 10+(y div 10) mod 10 +y div 100;
        x1:=a2 mod 1000;
        y1:=a2 div 1000;
        x2:=x1 mod 10+(x1 div 10) mod 10 +x1 div 100;
        y2:=y1 mod 10+(y1 div 10) mod 10 +y1 div 100;
        if (x3=y3) or (y2=x2) then s:='Yes'
          else s:='No';
        writeln(f2,s);
     End;
close(f1);
close(f2);
end. 
Pascal | Просмотров: 4278 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f1,f2:text;
x:integer;
x1,x2,x3,x4:real;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,x);
  x1 := x div 1000;
  x2 := x div 100 mod 10;
  x3 := x div 10 mod 10;
  x4 := x mod 10;

  if(x1=x4) and (x2=x3)then write(f2,'YES') else write(f2,'NO');
close(f1);
close(f2);
end.
Pascal | Просмотров: 2989 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
a,b,c,d,n:longint; 
begin 
assign (input,'input.txt'); reset (input); 
assign (output,'output.txt'); rewrite (output); 
read (a,b,c); 
d:=b-a; 
b:=a+d; 
n:=a+d*(c-1); 
write (n); 
close (input); 
close (output); 
end. 
Pascal | Просмотров: 2959 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020