Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
SergeySergo
0 / 0 / 0
Регистрация: 29.11.2013
Сообщений: 7
#1

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

29.11.2013, 18:20. Просмотров 481. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста написать программу с помощью функции
Составить программу, определяющую, в каком из данных четырех чисел больше цифр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2013, 18:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу, определяющую, в каком из данных четырех чисел больше цифр (Turbo Pascal):

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

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

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

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

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

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

1
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
29.11.2013, 19:20 #2
Лучший ответ Сообщение было отмечено SergeySergo как решение

Решение

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
32
33
34
uses crt;
 
///функция возвращает количество C цифр целого положительного числа K
function DigitCount(K: integer): byte;
var
  a: byte; //цифра числа
  
begin
  result := 0; //сначала количество цифр равно 0
  repeat
    inc(result); //увеличиваем количество цифр на 1
    K := K div 10; //удаляем последнюю цифру числа
  until K = 0; //выходим из цикла, когда целая часть равна 0
end;
 
var
  n: integer;
  max, c, i, k: byte;
  
begin
  max := 0;
  write('Введите 4 числа: ');
  for k := 1 to 4 do begin
    read(n);
    c := DigitCount(n); //вызываем функцию по определению количества цифр
    if max < c then begin 
      i := k; //запоминаем номер числа
      max := c //находим очередной максимум
    end
  end;
  writeln('номер числа: ', i);
  readln;
  textcolor(red)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2013, 19:20
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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