Напишите пожалуйста в Паскале программу, которая считывает целое число и определяет (выводя результат на экран), сколько цифр в этом числе равно 7
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
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.