67

Дна последовательность неотрицательных чисел, последнее из которых Равно нулю:…

06 апреля 2023

Дна последовательность неотрицательных чисел, последнее из которых Равно нулю: причем других равных нулю чисел в последовательности нет. Найтипоследнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.

категория: информатика



51

Var a, k: realBEGINuses crt; clrscr; write ('Vvedite 1 chlen posledovatelnosti'); readln (a); k: =0; while a > 0 dobeginif (a > 10) then k: =a; write ('Vvedite ocherednoy chlen posledovatelnosti'); readln (a); end; writeln (k); END.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...