Напишите пожалуйста в Паскале программу, которая считывает целое число и определяет (выводя результат на экран), сколько цифр в этом числе равно 7
Answers & Comments
hhh54
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.
Answers & Comments
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.