Напишите программу, которая в последовательности натуральных чисел находит количество двузначных чисел или сообщает, что таких чисел нет (выводит NO). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Чтобы контрольная работа получила высший , необходимо как следует постараться: изучить теорию написания контрольных работ, посмотреть методички и гост, составить план и многое другое. как видите, решение контрольной работы не такая уж и простая . но продвинутые студенты, которые знают цену своему времени и силам, заказывают решение контрольных работ у нас. это быстро, качественно и доступно каждому. мы не пользуемся услугами посредников, чему цены на наши услуги значительно ниже, а работа выполняется быстрее. образец плана контрольной работы конечно, всегда будут студенты, которые любят самостоятельно писать контрольные работы. им мы тоже стараемся всеми силами. поэтому мы подобрали несколько качественных примеров плана контрольных работ, которые демонстрирует практически идеальное выполнение плана. опираясь на эти примеры, не забывайте и о теории. план контрольной работы должен быть детально проработан. в нем вы должны указать, сколько точно будет разделов, глав и параграфов. кроме того, им нужно дать названия, которые будут уникальными (т.е. не повторяются в тексте работы больше одного раза). план также определить, какой объем займет ваша контрольная работа. распределяя главы, продумывайте, что вы будете в них писать, какая информация вам для этого понадобится, что вам для этого не хватает. если вы будете четко следовать нашим советам, вы без труда сможете самостоятельно написать план к любой контрольной работе. взято со страницы:

Var a: array of integer; var i: byte; var b: boolean; begin b: =true; setlength(a,8); var n: =0; writeln('введите число: '); readln(i); var d: =i; while i< > 0 do begin a[n]: =i mod 2; i: =i div 2; inc(n); end; setlength(a,n); for   i: =0 to n-1 do begin if n=0 then begin write(0); break; end; swap(a[i],a[n-1]); write(a[i]); end; for i: =1 to n-1 do begin if n=0 then break; if a[i-1]< > a[i] then begin b: =false; break; end; end; if (b=false) then write(' = ',d,' это не палиндром') else  write(' = ',d,' это палиндром'); end.