Впаскале. составить программу, по которой компьютер - вопрос №3939733 от тамик51 17.06.2021 16:05

Question

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

тамик51 · Answer

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.