Задание:
Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер 0
Решение:
var c, tmp: integer; begin c: =0; tmp: =1; repeat read (tmp); inc (c); until tmp=0; writeln (c); end.
Знаете другой ответ?