Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти сумму и количество всех положительных элементов массива, количество чисел = 0 и изменение знака всех чисел https://www.cyberforum.ru/ pascal/ thread520479.html
спасибо всем сможет помочь
Дана вещественная таблица В(1:N). Найти произведение положительных элементов таблицы и их количество. Pascal
Помогите пожалуйста решить ещё одну - Дана вещественная таблица В(1:N). Найти произведение положительных элементов таблицы и их количество.
вычислить сумму введенных чисел Pascal
С клавиатуры вводится последовательность чисел, разделенных пробелами. Ввод прекращается при нажатии клавиши Enter. Произвести следующие операции: 1) вычислить сумму введенных чисел; 2) найти...
Pascal Заполнение файла случайными числами и его последующая обработка Заполнить двоичный файл N действительными числами, полученными с помощью генератора случайных чисел. Найти сумму минимального и максимального элементов этого файла. N – случайное число, не... https://www.cyberforum.ru/ pascal/ thread520423.html
Pascal Тесты для программ на Pascal. https://www.cyberforum.ru/ pascal/ thread520422.html
Здравствуйте! Не подскажете, как правильно составлять тесты для программ? Или особой разницы нет?
Pascal Перенос данных из одного файла в другой с их изменением
Заполнить двумерный массив размерности 3×3 вещественными числами из текстового файла. Увеличить все элементы массива на величину суммы номеров столбца и строки (индексация начинается с нуля), после...
Pascal С одномерным динамическим массивом произвести следующие операции
С одномерным динамическим массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти номер минимального элемента массива; 2) вычислить сумму элементов массива,...
Pascal Вычисление суммы первых n членов последовательности. Пользователь вводит натуральное число n. Программа рассчитывает и выводит на экран сумму первых n членов последовательности {(1/i)}^{n}{}_{i=1} https://www.cyberforum.ru/ pascal/ thread520393.html
Pascal Неправильный перевод в десятичную систему https://www.cyberforum.ru/ pascal/ thread520380.html
Суть в том , что программа выдает не то , что нужно. writeln(inttobin(3932)); writeln(inttobin(92)); writeln(4003 xor 255); // выводит 3932 а нужно 92 Для вывода символа из таблицы...
Pascal Дан символьный массив. Определить самый длинный элемент - палиндром Собственно, сабж. Дан символьный массив. Определить самый длинный элемент - палиндром. Поиск не помог. Я школьник. https://www.cyberforum.ru/ pascal/ thread520370.html
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
16.03.2012, 22:57 0

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа

16.03.2012, 22:57. Показов 3927. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено mr.brain как решение

Решение

2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  var
    n,s,sr: real;
    i: byte;
begin
  s:=0;
  for i:=1 to 10 do
  begin
    write('vvedite ',i,'-e chislo: ');
    readln(n);
    s:=s+n;
  end;
  sr:=s/10;
  writeln('srednee = ',sr:5:2);
  readln;
end.
Добавлено через 5 минут
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  var
    n,s,k,l: integer;
begin
  write('vvedite chislo n ');
  repeat
    readln(n);
  until n>0;
  while n>0 do
  begin
    k:=n mod 10;
    s:=s+k;
    n:=n div 10;
    inc(l);
  end;
  writeln('summa cifr = ',s,'; kolichestvo = ',l);
  readln;
end.


Вернуться к обсуждению:
Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2012, 22:57
Готовые ответы и решения:

Дано целое число N(>0).используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.
помогите, пожалуйста Дано целое число N(>0).используя операции деления нацело и взятия остатка от...

Задано целое число N (>0). C операциями деления нацело и взятия остатка от деления определить, имеются ли в записи числа N цифра 2.
1. Задано целое сило N (>0). C операциями деления нацело и взятия остатка от деления определить,...

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
7 Дано целое число N >0. Используя операции деления нацело и взятия остатка от деления, найти...

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

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