Цикл с условием Опции

[L_E_X]

Дано натуральное число. Определить:

a)Количество цифр 3 в нём
б)Сумму его цифр, больших пяти
в)Сколько раз в нем встречаются цифры 0 и 5(всего)?

Заранее спасибо!!

[Rian]

что-нибудь такое?

uses crt;
var
c, i, sval, count, summ:longint;
z:integer;
sst:string;
begin
     clrscr;
     writeln('--. ');
     readln©;

     str(c, sst);

     count:=0;
      sval:=0;

     for i:=1 to length(sst) do begin

         if sst[i]='3' then inc(count);

         val( sst[i], sval, z);
         if sval>5 then summ:=summ+sval;

     end;

     writeln('1.= ',count,' 2.= ',summ);

     readkey;



end.

Сообщение отредактировано: Rian - 3.02.2012 14:37

[klem4]

Такое решение нормальный преподаватель не примет, и в условии наверняка было сказано о запрете на использование строковых данных. Автор, воспользуйся поиском, решалось миллиард раз.