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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

var c,i:integer; 
s:string; 
begin 
c:=0; 
assign(input,'input.txt'); 
reset(input); 
read(s); 
for i:=1 to length(s) do 
begin 
if (s[i]='8') then c:=c+2; 
if (s[i]='0') or (s[i]='6') or (s[i]='9') then c:=c+1; 
end; 
assign(output,'output.txt'); 
rewrite(output); 
write(c); 
end. 
Pascal | Просмотров: 2231 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f: text;
  c,i,n:byte;
    max:real;
a:array [1..100,1..2] of byte;
begin
    assign(f,'input.txt');
        reset(f);
        read(f,n);

        for i:=1 to n do
        read(f,a[i,1]);

        for i:=1 to n do
        read(f,a[i,2]);

        close(f);

    max := A[1,1] /100 *a[1,2]; c:=1;
        for i:=2 to n do
    if max < a[i,1]/100*a[i,2] then begin
        max:=a[i,1]/100*a[i,2];c:=i;
    end;

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

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

type mas=array[1..100] of integer; 
var a:mas; 
n,i,s,m:integer; 
begin 
assign(input,'input.txt'); 
reset(input); 
readln(n); 
for i:=1 to n do 
read(a[i]); 
close(input); 
assign(output,'output.txt'); 
rewrite(output); 
s:=0; 
m:=0; 
for i:=1 to n do 
begin 
if (a[i]<1) then 
s:=0 
else s:=s+1; 
if s>m then 
m:=s; 
end; 
writeln(m); 
close(output); 
end. 
Pascal | Просмотров: 2914 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var f1,f2:text;
a:array [0..1000] of integer;
i,s:integer;
flag:boolean;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a[0]);
flag:=false;
for i:=1 to a[0] do
    read(f1,a[i]);
for i:=1 to a[0] do
    if(a[i]<=437) then begin
                       flag:=true;
                       s:=i;
                       break;
                       end;
if(flag) then write(f2,'Crash ',i) else write(f2,'No crash');
close(f1);
close(f2);
end. 
Pascal | Просмотров: 4474 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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

var 
x,x1,x2,x3,x4:integer; 
begin 
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output); 
begin
read(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) write('YES') else write('NO');
end. 

Pascal | Просмотров: 3766 | Загрузок: 2 | Добавил: shum | Дата: 04.06.2012 | Комментарии (1)

var i,c:integer;
a,b:longint;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a,b);
while (a<>0) and (b<>0) do
  begin
  if a >= b then a:= a mod b else b:= b mod a;
  end;
c:=a+b;
write(f2,c);
close(f1);
close(f2);
end. 
Pascal | Просмотров: 2706 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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

var i,j,a,b,max,res: integer;
    f: text;

begin
     assign(f,'input.txt');
     reset(f);
     readln(f,i);
     res:=101;
     for j:=1 to i do begin
         readln(f,a,b);
         if (b=1)and(max<a) then  max:=a;
     end;
     close(f);
     if max<>0 then begin
     reset(f);
     readln(f,i);
     for j:= 1 to i do begin
         readln(f,a,b);
         if b=1 then
         if a=max then
         if res>j then res:=j;
     end;
     close(f);
     end;
     assign(f,'output.txt');
     rewrite(f);
     if res=101 then writeln(f,'-1') else writeln(f,res);
     close(f);
end. 
Pascal | Просмотров: 3072 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020