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

Определить в каком из двух заданных чисел цифр, кратных z, больше

23.10.2016, 22:27. Показов 1378. Ответов 2
Метки нет (Все метки)

Даны два натуральных числа. Определить в каком числе цифр, кратных z больше(значение z вводится с клавиатуры, z = 2,3,4...,9).Использовать подпрограмму для расчета количества цифр, кратных некоторому x.
Помогите решить НЕ РЕКУРСИЕЙ, а через команду while.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2016, 22:27
Ответы с готовыми решениями:

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

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

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

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

2
147 / 128 / 155
Регистрация: 22.03.2016
Сообщений: 502
23.10.2016, 23:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function MyOddProc(x: integer; y: integer): boolean;
begin
  if ((x mod y) = 0)
    then
      Result:= true
    else
      Result:= false;
end;
begin
  var Value:= ReadInteger('Введите число для проверки на кратность: ');
  var OddValue:= ReadInteger('Введите число проверки: ');
  var Sum:= 0;
  for var Counter:= 1 to Value.ToString().Length do
    begin
      if MyOddProc(integer.Parse(Value.ToString()[Counter]), OddValue)
        then
          Sum += 1;
    end;
  Writeln(Sum);
end.
0
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
24.10.2016, 06:33 3
Лучший ответ Сообщение было отмечено Dennis1 как решение

Решение

Цитата Сообщение от Dennis1 Посмотреть сообщение
через команду while.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  i,j:uint64;
  z:byte;
function Krat_z_count(i:uint64;z:byte):byte;
begin
  Result:=0;
  while i>0 do begin
    Result:=Result+ord(i mod 10 mod z=0);
    i:=i div 10;
  end;
end;  
begin
  write('Введите первое число:');readln(i);
  write('Введите второе число:');readln(j);
  write('z=');readln(z);
  if Krat_z_count(i,z)>Krat_z_count(j,z) then writeln('В первом числе цифр кратных ',z,' больше чем во втором') else
  if Krat_z_count(i,z)<Krat_z_count(j,z) then writeln('Во втором числе цифр кратных ',z,' больше чем в первом') else
  writeln('В обоих числах числе цифр кратных ',z,' поровну');
end.
Добавлено через 54 секунды
Cyber_Monster_, а вы какую задачу решали?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2016, 06:33
Помогаю со студенческими работами здесь

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

Составить процедуру, определяющую, в каком из данных двух чисел больше цифр
Составить процедуру, определяющую, в каком из данных двух чисел больше цифр... var a,b,d,f:real;...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru