Дна последовательность неотрицательных чисел, последнее из которых Равно нулю: причем других равных нулю чисел в последовательности нет. Найти последнее число, больше десяти, в этой последовательности. Если таких чисел нет, нап...
Дна последовательность неотрицательных чисел, последнее из которых Равно нулю: причем других равных нулю чисел в последовательности нет. Найти последнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.
Гость
Ответ(ы) на вопрос:
Гостьvar a, k: real
BEGIN
uses crt; clrscr;
write ('Vvedite 1 chlen posledovatelnosti'); readln (a);
k:=0;
while a > 0 do
begin
if (a > 10) then k := a;
write ('Vvedite ocherednoy chlen posledovatelnosti'); readln (a);
end;
writeln (k);
END.
Не нашли ответ?
Похожие вопросы