Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.72
bumerang37
0 / 0 / 0
Регистрация: 14.01.2010
Сообщений: 12
#1

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

11.01.2011, 19:07. Просмотров 2852. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, на сколько своих цифр некоторое число делится без остатка (Pascal ABC):

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

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

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

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

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

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

6
p@$#@
73 / 72 / 16
Регистрация: 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 / 16
Регистрация: 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 / 16
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Определить, делится ли произведение на любой из элементов матрицы без остатка - Pascal ABC
найти произведение элементов, расположенных на побочной диагонали и выше её. Определить, делится ли это произведение на любой из...

Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка - Pascal
Привет, сново я =) Задали вторую задачку, скозали лёгкая, только вот не могу справиться с ней. &quot;ВВедите Число N. Определить для...


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

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

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