Напишите пожалуйста в Паскале программу, которая считывает целое число и определяет

Напишите пожалуйста в Паскале программку, которая считывает целое число и определяет (выводя итог на экран), сколько цифр в этом числе одинаково 7

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт