Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Staalker
1 / 1 / 1
Регистрация: 11.12.2010
Сообщений: 58
1

Найти сумму и количество цифр в числе (блок-схма)

28.06.2011, 12:03. Просмотров 452. Ответов 1
Метки нет (Все метки)

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
program ff;
uses crt;
var
  N: LongInt;
  CountN, SumN, OneDigit: integer;
begin
  WriteLn('Введите натурально число N:');
  Readln(N);
  if N < 0 then begin
    WriteLn('натуральное число - это положительное! А Вы ввели отрицательное!');
    readln;
    Halt(1);
  end;
  CountN := 0;
  SumN := 0;
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    SumN := SumN + OneDigit;
    inc(CountN);
  until N = 0;
  begin
  WriteLn('Количество цифр в числе n=', CountN,';');
  WriteLn('Сумма цифр в числе n=',SumN,';');
  WriteLn('Первая цифра числа n=' ,OneDigit,'.');
    end
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2011, 12:03
Ответы с готовыми решениями:

Вывести на экран сумму цифр и количество нечетных цифр в заданном числе
Пожалуйста помогите решить 3 задачи, буду примного благодарен! 1. Дано целое положительное...

Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр в одном числе
Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр...

Найти количество цифр в числе
Здравствуйте, помоги, пожалуйста написать функцию, которая считает кол-во цифр в числе, чтобы не...

Найти сумму цифр в десятичном числе k
найти сумму цифр в десятичном числе k

Найти количество чётных цифр в числе
Составить программу для нахождения количества чётных цифр в трёхзначном числе.

1
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
29.06.2011, 05:53 2
лови...
1
Вложения
Тип файла: rar staalker.rar (10.0 Кб, 12 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2011, 05:53

Найти количество нечётных цифр в числе
Цикл с проверкой условий. Задано число N. Напишите программу, которая находит количество нечётных...

Найти в числе число единиц, число десятков, сумму цифр, произведение цифр
Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр ,...

Найти количество цифр, равных 0, в заданном натуральном числе
Найти количество цифр, равных 0, в заданном натуральном числе.


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

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

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