Напишите пожалуйста в Паскале программу, которая считывает целое число и определяет (выводя результат на экран), сколько цифр в этом числе равно 7
Ответы на вопрос
Ответил hhh54
0
program DZ;
var x,i,n,k,s:longint;
begin
read (n);
s:=1;
x:=0
for i:=1 to 12 do
begin
k:=(n div s) mod 10;
s:=s*10;
if k=7 then x:=x+1;
end;
write (x);
end.
var x,i,n,k,s:longint;
begin
read (n);
s:=1;
x:=0
for i:=1 to 12 do
begin
k:=(n div s) mod 10;
s:=s*10;
if k=7 then x:=x+1;
end;
write (x);
end.
Новые вопросы