Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/16: Рейтинг темы: голосов - 16, средняя оценка - 4.75
bumerang37
0 / 0 / 0
Регистрация: 14.01.2010
Сообщений: 12
1

Определить, на сколько своих цифр некоторое число делится без остатка

11.01.2011, 19:07. Просмотров 3035. Ответов 6
Метки нет (Все метки)

Подскажите сделал программу в abc.net но при считывании файловой переменной в переменную целого типа проихсходит ошибка, недоумеваю в чем она
{1162. Цифры-делители
Напишите программу, вычисляющую на сколько своих цифр некоторое число делится без остатка.
В первой строке входного файла содержатся число N (0 < N < 109).
Пример ввода
661232
Пример вывода
3
}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program deliteli;
var
f1: file of integer;                   
f2: file of integer;                    
 
d,n,kol:integer;
begin     
      assign (f1, 'L:\ЗАДАЧИ\deliteli.txt');
      assign (f2, 'L:\ЗАДАЧИ\deliteli2.txt');    
 
      reset (f1);
      reset (f2);
    
     {writeln ('Введите число');}
      Read (f1,n); {вот здесь программа вылетает с ошибкой "Ошибка времени выполнения. Чтение после конца потока невозможно}
    
d:=n;
while d <> 0 do 
begin
  if d mod 10 <> 0 then 
    if n mod (d mod 10) = 0 then kol:=kol+1;
     d := d div 10;
end;
writeln (kol);
 
rewrite (f2);
write (f2,kol);
close (f1);
close (f2);
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2011, 19:07
Ответы с готовыми решениями:

Определите делится ли число десятков на число единиц без остатка
Определите делится ли число десятков на число единиц без остатка. Если делится,...

Определить в массиве произведение элементов чьё значение без остатка делится на 2 и не делится на 3
Уважаемые, помогите пожалуйста закончить или исправить задачу: 1. Ввести одн....

Введенное число делится без остатка на 3?
Друзья помогите пожалуйста с задачой: Написать программу проверяющую, верно ли...

Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>.
Помогите пожалуйста. Почему-то не получается. Заранее спасибо

Создать массив пятизначных четных чисел, делящихся без остатка на сумму своих цифр
Создать массив пятизначных четных чисел, делящихся без остатка на сумму своих...

6
p@$#@
73 / 72 / 37
Регистрация: 21.11.2009
Сообщений: 258
11.01.2011, 19:13 2
А можете без клеточек написать, и программку в тег паскаля занести.
0
bumerang37
0 / 0 / 0
Регистрация: 14.01.2010
Сообщений: 12
11.01.2011, 19:25  [ТС] 3
клеточки это пробелы так что ничего важного они не несут, подскажите что за тег паскаля ?
0
p@$#@
73 / 72 / 37
Регистрация: 21.11.2009
Сообщений: 258
11.01.2011, 19:49 4
Определить, на сколько своих цифр некоторое число делится без остатка

А теперь по теме: А что у вас не работает? У меня работает, даже ваш тестик сработал, хотя проверки даже не делал
1
bumerang37
0 / 0 / 0
Регистрация: 14.01.2010
Сообщений: 12
11.01.2011, 20:03  [ТС] 5
спасибо я просто через pascal abc.net файлы у меня на флешке на ходятся может как то с этим связано ?

Добавлено через 8 минут
Pascal
1
 прр
Добавлено через 2 минуты
Итак при переносе на жеский диск стало все нормально вроде, НО во 2 файл сохраняется какой то символ вместо ответа и ответ считывается не тот который написан в первом файле
0
p@$#@
73 / 72 / 37
Регистрация: 21.11.2009
Сообщений: 258
11.01.2011, 20:15 6
Какой-то бред... Вместо типа file of integer напишите text и посмотрите, что будет!
0
bumerang37
0 / 0 / 0
Регистрация: 14.01.2010
Сообщений: 12
11.01.2011, 20:25  [ТС] 7
спасибо ))
0
11.01.2011, 20:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2011, 20:25

Вывести шестизначные числа, которые делятся без остатка на сумму квадратов своих цифр
Вывести в 10 столбиков все шестизначные числа, которые делятся без остачи на на...

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

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,
Дано натуральное семизначное число N. Вывести на экран цифры числа, которые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru