Помощь - Поиск - Пользователи - Календарь
Полная версия: Цикл с условием
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
klem4
Такое решение нормальный преподаватель не примет, и в условии наверняка было сказано о запрете на использование строковых данных. Автор, воспользуйся поиском, решалось миллиард раз.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.