Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз

@Rick222 · Регистрация: 10.09.2013

Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз?

@ilyadenisovid · 09.10.2013, 15:04

Pascal

program test;
var
a, rez, s : integer;
begin
writeln('Введите а');
readln(a);
rez := 0;
while a > 0 do
begin
s := a mod 10;
if s = 3 then rez := rez + 1;
a := a div 10;
end;
writeln(rez);
readln;
end.

@Rick222 1 / 1 / 0 Регистрация: 10.09.2013 Сообщений: 77
		1
	Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз 09.10.2013, 14:51. Просмотров 4847. Ответов 1 Метки нет (Все метки) Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз? 0

Опции темы

Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз

Решение