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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

var x:integer; f1,f2:text;
begin
assign (f1,'input.txt');reset(f1);
read(f1,x);
assign(f2,'output.txt');
rewrite (f2);
Case x of
0 : write (f2,'3');
1 : write (f2,'2.7');
2 : write (f2,'2.72');
3 : write (f2,'2.718');
4 : write (f2,'2.7183');
5 : write (f2,'2.71828');
6 : write (f2,'2.718282');
7 : write (f2,'2.7182818');
8 : write (f2,'2.71828183');
9 : write (f2,'2.718281828');
10 : write (f2,'2.7182818285');
11 : write (f2,'2.71828182846');
12 : write (f2,'2.718281828459');
13 : write (f2,'2.7182818284590');
14 : write (f2,'2.71828182845905');
15 : write (f2,'2.718281828459045');
16 : write (f2,'2.7182818284590452');
17 : write (f2,'2.71828182845904524');
18 : write (f2,'2.718281828459045235');
19 : write (f2,'2.7182818284590452354');
20 : write (f2,'2.71828182845904523536');
21 : write (f2,'2.718281828459045235360');
22 : write (f2,'2.7182818284590452353603');
23 : write (f2,'2.71828182845904523536029');
24 : write (f2,'2.718281828459045235360288');
25 : write (f2,'2.7182818284590452353602875');
end;
close(f1);
close(f2);
end. 
Pascal | Просмотров: 3602 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var c:string;
f1,f2:text;
k,i,j      :integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,c);
for i:=1 to length(c) do
    begin
    if (copy(c,i,5)='>>-->') or (copy(c,i,5)='<--<<') then j:=j+1;
    end;
write(f2,j);
close(f1);
close(f2);
end. 
Pascal | Просмотров: 2691 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
a,s:string; 
p:integer; 
begin 
assign(input,'input.txt'); 
assign(output,'output.txt'); 
reset(input); 
rewrite(output); 
readln(s); 
a:='0'; 
p:=-1; 
while p<>0 do 
begin 
p:=pos(a,s); 
a:=a+'0'; 
end; 
writeln(length(a)-2); 
end. 
Pascal | Просмотров: 3352 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var n,i,k:integer; 
m:longint; 
begin 
assign (input,'input.txt'); 
assign (output,'output.txt'); 
reset (input); 
rewrite (output); 
readln(k); 
for i:=1 to k do 
begin 
read(n,m); 
writeln (19*m + (n + 239)*(n + 366) div 2);end; 
end. 
Pascal | Просмотров: 3856 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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

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

Скачать после просмотра рекламы
Pascal | Просмотров: 7065 | Загрузок: 4 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
x, y: real; 
input, output: text; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read(input, x, y); 
if x < y then write(output, '<'); 
if x > y then write(output, '>'); 
if x = y then write(output, '='); 
close(input); close(output); 
end.
Pascal | Просмотров: 4937 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var n,s,k:longint;
 begin
  assign(input, 'input.txt'); reset(input); 
  assign(output, 'output.txt'); rewrite(output);
  read(n);
  if n=1 then
   write (1)
 else
  begin
   s:=n+1;
   for k:=2 to n-1 do
    if n mod k=0 then s:=s+k;
   write (s);
  end;
end. 

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

var a,b,c, min,max:integer; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read (a,b,c); 
min:=a; max:=a; 
if b>max then max:=b; 
if c>max then max:=c; 
if b<min then min:=b; 
if c<min then min:=c; 
write (max-min); 
end.
Pascal | Просмотров: 6557 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

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


Copyright MyCorp © 2020