Произвольным образом вводятся числа до тех пор, пока не будет введено число 15....

Question

Произвольным образом вводятся числа до тех пор, пока не будет введено число 15. Определить количество этих чисел и найти значение 15k, где k - количество введённых чисел. Результат вывести на экран

Answer 1

Var
  a: real;
  k: integer;
begin
  k:= 0;
  repeat  //цикл repeat выполняется до тех пор, пока не будет введено число 15
    writeln('Введите число');
    readln(a);
    k:= k + 1;
  until a = 15;
  writeln('15k = ', 15 * (k - 1)); { (k - 1) чтобы в подсчете введенных чисел не учитывалось само число 15}
end.

Comments

Спасибо