1. В файле fact.in записано натуральное число (количество цифр от 1 до 200). Определить,...

0 голосов
28 просмотров
1. В файле fact.in записано натуральное число (количество цифр от 1 до 200).
Определить, является ли оно факториалом какого-либо числа. Если да, в файл fact.out записать это число (факториалом
которого является исходное), если нет, то записать в этот файл слово “NO”.


Пример:




fact.in


fact.out




6


3




7


no






2. Постфиксное
выражение – это числовое выражение, в котором сначала записываются операнды, а
затем знак операции. Например: 3 5 + означает 3+5. Особенностью постфиксных
выражений является то, что при их записи скобки не нужны. Например, выражение
(3+4*2)/3-1 можно записать так: 3 4 2 * + 3 / 1 -. Написать программу
вычисления постфиксного выражения, содержащего цифры и знаки арифметических
операций. Операнды и операции разделяются пробелами.

Пример:




post.in


post.out




3 5 +


6




4
4 2 * + 3 / 1 -



3






3. Задан ряд последовательных натуральных чисел от n до m (n
местах, затем из оставшегося ряда удаляют все числа стоящие на нечетных местах.
Эти действия повторяют до тех пор пока не останется одно число, Определить это
число.

Пример:




nchet.in


post.out




5
10


8





Информатика (19 баллов) | 28 просмотров
Дан 1 ответ
0 голосов

Var
 i,o:text; 
n,k,res:integer;
 
b:boolean;

begin  
res:=1;

 b:=false; 
assign(i,'fact.in');
 
assign(o,'fact.out');
 
reset(i);

 rewrite(o); 
read(i,n);
 
close(i);
 
for k:=1 to n do
 
begin
   r
es:=res*k;
  
if res=n then
   
begin
    
b:=true;
    
write(o,'YES');
    
 break;
   
end;
 
end;

 if b=false then 
write(o,'NO');
 close(o);
end.

(545 баллов)