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.