Помогите с программой на Паскале

[Alexadr34]

Помогите с программой на Паскале

Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа. Заранее спасибо

 

[Vladimir_S]

Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа. Заранее спасибо

VAR
 i,N7:Byte;
 S:String;
BEGIN
 Writeln('n:');
 Readln(S);
 N7:=0;
 For i:=1 to Length(S) do
  If S[i]='7' then Inc(N7);
 Writeln(N7,' times');
 Readln
END.

 

[Mr.П 2.0]

Ну конечно S:string; это ещё то натуральное число.

Var a:longint; s:string; i,k:byte;
begin
k:=0;
Write('N=');
read(a);
Writeln;
str(a,s);
for i:=1 to length(s) do
begin
if s[i]='7'
then inc(k);
end;
Writeln('Kol-vo 7 ravno = ',k);
readln;
readln;
end.

 

[Vladimir_S]

Ну конечно S:string; это ещё то натуральное число.

Так... начинается опять...
Любезный, а ответьте-ка на вопрос: имеет ли значение для пользователя программы то, как именно машина воспримет введенное им по запросу число? Мне кажется, что ни малейшего. Моя программа работает так:
1. Просит ввести число. При этом, обратите внимание, число может быть хоть 200-значным, а не ограниченным паршивыми 10 разрядами (причем старший - не выше 2), как у Вас.
2. Сообщает количество семерок.
А что еще пользователю надо?
Вот так-то.
С сожалением вынужден констатировать, что наше предыдущее общение ничему Вас, дорогой мой, не научило - всё то же верхоглядство и пустое самовыпячивание. Боюсь, кончится аналогично.

 

[Mr.П 2.0]

Да да да
Здесь :tehnari_ru_108: не получилось
Но на другом все ништяк и дело не во мне, а в количестве поступающих задач на этом форуме и полное доминирование модераторов.
[mod2]По случаю нарушения п.3.1 и 3.4 Правил форума - бан на месяц.
Модератор.[/mod2]
[mod2]За повторную регистрацию на форуме под другим ником вам грозит вечный бан, так что будьте любезны, не выеживайтесь! К тому же любая задача имеет, по крайней мере, не менее 2-х способов решения, это я вам говорю из личной практики. Ваш модератор.[/mod2]

 

[AlexZir]

Можно обойтись вообще без строковой переменной, используя функции целочисленного деления, но, как справедливо отмечено выше, в компьютерном представлении целочисленный тип является ограниченным сверху и снизу множеством, поэтому не все значения можно будет обработать. Это так, частности.

Mr.П 2.0
Вы нарушили по крайней мере 4 запрета на данном форуме, что ж вы ожидали от модераторов? На месте Vladimir_S я бы вам дал вечный бан уже за то, что вы используете повторную регистрацию. Стиль ваших сообщений выдал вас с потрохами ещё в начале.

 

[Vladimir_S]

Можно обойтись вообще без строковой переменной, используя функции целочисленного деления, но, как справедливо отмечено выше, в компьютерном представлении целочисленный тип является ограниченным сверху и снизу множеством, поэтому не все значения можно будет обработать. Это так, частности.

Угу. А товарищ что делает? Считывает число в формате LongInt и тут же преобразует его в строку. Далее один в один с моей программой. А у меня сразу идет чтение строки. Нет, я еще понял бы, если бы он добавил, скажем, контроль правильности ввода, например, сообщение об ошибке при вводе пробела или там знака препинания - так ведь и этого нет! Чисто "смотрите, какой я умный, а Vladimir_S дурак!".

Mr.П 2.0
Вы нарушили по крайней мере 4 запрета на данном форуме, что ж вы ожидали от модераторов? На месте Vladimir_S я бы вам дал вечный бан уже за то, что вы используете повторную регистрацию. Стиль ваших сообщений выдал вас с потрохами ещё в начале.

Ох, да у меня всё, как у крокодила Гены: "В лучшее верится...".