Question

Впаскале. составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «продолжить вычисления? (д/н)», отвечают ‘д’.

Answer 1

Var  a:longint;  b:integer;  s:string;  
begin 
 readln(s); 
 a:=1;  b:=1; 
 repeat   
  writeln('Продолжить вычисления? (Д/Н)');   
  b:=b+2;   
  a:=a*b;   
  readln(s); 
 until (s<>'Д'); 
 write(a);
end.