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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

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

var 
a,b,c :longint; 

begin 

reset(input,'input.txt'); 
read(a,b,c); 
close(input); 
assign(output,'output.txt'); 
rewrite(output); 
if a*b=c then write ('YES') else write ('NO'); 
close(output); 

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

var f1,f2text;
i,a,b,c,l1,l2integer; s,ostring;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,s);
l1=ord(s[1]);
l2=ord(s[4]);
val(s[2],a,c);
val(s[5],b,c);
if (length(s)=5) and (s[3]='-')
and ((65=l1) and (72=l1) and (65=l2) and (72=l2) and (a=1) and (a=8) and (b=1) and (b=8)) then
begin
if ((abs(l1-l2)=2) and (abs(a-b)=1)) or ((abs(l1-l2)=1) and (abs(a-b)=2)) then
o='YES' else o='NO'
end
else o='ERROR';
write(f2,o);
close(f1);
close(f2);
end.
Pascal | Просмотров: 5225 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var x,i:longint; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
read(x); 
if(x=1)then write ('198'); 
if(x=2)then write ('297'); 
if(x=3) then write ('396'); 
if(x=4) then write ('495'); 
if(x=5)then write ('594'); 
if(x=6) then write ('693'); 
if(x=7) then write ('792'); 
if(x=8)then write ('891'); 
if(x=9)then write ('990'); 
end.
Pascal | Просмотров: 3595 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var 
a,b:Integer; 
begin 
assign(input,'input.txt'); reset (input);
assign(output,'output.txt'); rewrite(output); 
read(a);
  b:= a div 10;
 if b=0 then
    write(25)
    else write(b*(b+1),25); 
end.
Pascal | Просмотров: 5488 | Загрузок: 0 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

var i,n,s: longint;
    t: text;
begin
     assign(t,'input.txt');
     reset(t);
     readln(t,n);
     close(T);
     s:=0;
     if n<=0 then
     for i:=1 downto n do s:=s+i else
     for i:=1 to n do s:=s+i;

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

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

var i,j,n,m,b,c:integer;
a:array[1..1000] of integer;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
readln(m);
for i:=1 to m do
begin
read(b,c);
for j:=b to c do
  write(a[j],' ');
writeln;
end;
end.
Pascal | Просмотров: 2816 | Загрузок: 1 | Добавил: shum | Дата: 04.06.2012 | Комментарии (0)

1-10 11-20 ... 171-180 181-190 191-197
Это интересно!


Copyright MyCorp © 2020