Цикл с постусловием - Помощь студентам

chistayastranichka · 28.05.2009, 23:33

Нужно найти количество цифр 5 в заданном числе..

VadEr · 28.05.2009, 23:52

Код:

var
  N:integer;
  i:byte;
begin
  readln(N);
  i:=0;
repeat
  N := N div 10;
  Inc(i);
until N=0;
  writeln(i);
  readln
end.

28.05.2009, 23:33	#1
chistayastranichka Регистрация: 27.05.2009 Сообщений: 3	Цикл с постусловием Нужно найти количество цифр 5 в заданном числе..

28.05.2009, 23:52	#2
VadEr Форумчанин Регистрация: 24.03.2009 Сообщений: 375	Код: `var N:integer; i:byte; begin readln(N); i:=0; repeat N := N div 10; Inc(i); until N=0; writeln(i); readln end.` Последний раз редактировалось VadEr; 29.05.2009 в 00:15.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цикл с постусловием. Алгоритм Евклида.	BioVis	Паскаль, Turbo Pascal, PascalABC.NET	5	31.10.2008 16:29
цикл if... then..else	DeDoK	Общие вопросы Delphi	8	11.10.2008 11:31
Цикл For Each	Bu$ter	Microsoft Office Excel	5	24.09.2008 16:49
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34