Предмет: Информатика,
автор: z0alexander0z
ПОМОГИТЕ,ИНФОРМАТИКА
Найдите количество пятизначных натуральных чисел, цифровая запись которых в
десятичной системе счисления содержит хотя бы один фрагмент 13 (цифры 1 и 3,
стоящие рядом).
Ответы
Автор ответа:
0
Ответ: 3700
Программа(PascalABC Net):
var i, j, s, x: integer;
begin
for i:= 10000 to 99999 do begin
x:=i;
for j:= 1 to 4 do begin
if (x mod 10 = 3) and ((x mod 100) div 10 = 1) then s:= s + 1;
x:=x div 10;
end;
end;
writeln(s);
end.
Программа(PascalABC Net):
var i, j, s, x: integer;
begin
for i:= 10000 to 99999 do begin
x:=i;
for j:= 1 to 4 do begin
if (x mod 10 = 3) and ((x mod 100) div 10 = 1) then s:= s + 1;
x:=x div 10;
end;
end;
writeln(s);
end.
Похожие вопросы
Предмет: История,
автор: dgolcov
Предмет: Английский язык,
автор: ibadulaevsarvar
Предмет: Информатика,
автор: NIfhfg
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: Trole12rus