0 / 0 / 0
Регистрация: 28.05.2011
Сообщений: 33
1

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

22.06.2011, 01:28. Показов 5328. Ответов 1
Метки нет (Все метки)

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2011, 01:28
Ответы с готовыми решениями:

Дано натуральное четырехзначное число. Определить все цифры в цифровой записи данного числа, на которые оно делится без остатка
Дано натуральное четырехзначное число. Определить все цифры в цифровой записи данного числа, на...

Перебрать все целые числа и вывести на экран те, которые делятся без остатка на количество разрядов этих чисел
Написать программный код, который перебирает целые числа от 0 до бесконечности и выводит на экран...

Вывести в цикле те цифры числа, которые не делятся на 3 без остатка.
Вывести только те цифры числа, которые не делятся на 3 без остатка.

Дано число n. В интервале от 1 до n сложить все числа, которые делятся на 5 без остатка
Помогите пожалуйста!

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
22.06.2011, 09:33 2
Лучший ответ Сообщение было отмечено Vana999 как решение

Решение

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
uses crt;
var n,a,k:integer;
begin
repeat
write('Введите семизначное число n=');
read(n);
until(n>=1000000)and(n<=9999999);
repeat
write('Введите цифру, отличную от 0 a=');
read(a);
until a in [1..9];
k:=0;
writeln('Цифры, делящиеся на ',a,' без остатка:');
while n>0 do
 begin
  if (n mod 10) mod a=0 then
   begin
    write(n mod 10,' ');
    k:=k+1;
   end;
  n:=n div 10;
 end;
writeln;
if k=0 then write('Таких цифр нет')
else write('K=',k);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2011, 09:33

Вывести те числа, которые делятся без остатка на цифры, из которых состоят
Здравствуйте) Вот суть задания: Есть целые числа от 10 до 999, нужно вывести те числа, которые...

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N&lt;10^255). Вывести на экран количество цифр числа N и сумму его цифр.

Дано натуральное семизначное число N. Вычислить количество цифр, кратных 3
Сабж

Вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр
вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр


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

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

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