Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 27.01.2010
Сообщений: 29
1

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

28.01.2010, 13:02. Просмотров 914. Ответов 1
Метки нет (Все метки)

1. Дана строка символов. Удалить из неё знаки препинания.
2.Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая.
Для нахождения саммы цифр натурального числа составмть функцию.
3. Дан файл F, компоненты которого являются действительными числами. Число компонент файла кратно 2-м.
Получить в файле Y наибольшее из каждых 2-х компонент файла F.
4. Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2010, 13:02
Ответы с готовыми решениями:

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

Вводится массив. Определить, в каком из чисел наибольшая сумма всех его цифр
Ребят помогите написать прогу в Free Pascal Вводится массив из N целых положительных чисел....

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

Определить, в котором сумма цифр наибольшая и в каком произведение цифр наименьшее
Дано 5 чисел. Количество цифр в числе варьируется от 3 до 5. Числа вводятся с клавиатуры,...

1
Retired
7719 / 2551 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
28.01.2010, 13:11 2
Лучший ответ Сообщение было отмечено 777pas как решение

Решение

Цитата Сообщение от 777pas Посмотреть сообщение
Дана строка символов. Удалить из неё знаки препинания
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
  i:integer;
begin
  ReadLn(s);
  for i:=Length(s) downto 1 do
    if s[i] in [',','.'] then
      Delete(s,i,1);
  WriteLn(s);
  ReadLn
end.
Добавлено через 4 минуты
Цитата Сообщение от 777pas Посмотреть сообщение
Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая.
Для нахождения саммы цифр натурального числа составмть функцию.
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
function FSum(n:integer):integer;
var
  temp,sum:integer;
begin
  sum:=0;
  temp:=n;
  while temp <> 0 do
  begin
    inc(sum, temp mod 10);
    temp:=temp div 10
  end;
  FSum:=sum
end;
var
  i,n:integer;
begin
  ReadLn(i,n);
  if FSum(i)>FSum(n) then
    WriteLn(i,' - больше')
  else
    if FSum(i)<FSum(n) then
      WriteLn(n,' - больше')
    else
      WriteLn('Они равны');
  ReadLn
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2010, 13:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В каком из трех чисел сумма четных цифр наибольшая
В каком из трех чисел сумма четных цифр наибольшая

Определить номер строки массива натуральных чисел, сумма чисел которой наибольшая
Сформировать массив натуральных чисел с M рядков и N столбцов.Определить номер рядка, сумма чисел...

Узнать в каком из натуральных чисел сумма цифр больше
Дано 2 натуральных числа. Узнать в каком из них сума цифр больше. Объясните как построить...

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


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

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

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