Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? ...
Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? (Д/Н)», отвечают ‘Д’.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы