Произвольным образом вводятся числа до тех пор, пока не будет введено число 15. определить количество этих чисел и найти значение 15k, где k - количество введённых чисел. результат вывести на экран
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.
Одним из фундаментальных понятий в информатике является понятие алгоритма. Алгоритм (в матемтике) - это формально описанная вычислительная процедура, получающая исходные данные, называемые так же входом алгоритма или его аргуметом, выдающая результат вычислений на выход, и обладающая свойствами: массовость, определенность, конечность и детерминированность. Алгоритм (в информатике) - это точное и понятное предписание (указание) исполнителю совершить определенную последовательность действий, направленных на достижение указанной цели или решение поставленной задачи.
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.