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

Задать массив вещественными числами от а до в, в количестве n и найти сумму всех цифр чисел кратных трем

21.09.2014, 21:26. Просмотров 498. Ответов 5
Метки нет (Все метки)

Задать массив вещественными числами от а до в , в количестве n и найти сумму всех цифр чисел кратных трем
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2014, 21:26
Ответы с готовыми решениями:

Найти сумму положительных чисел больше 20 и меньше 100, кратных трем и заканчивающиеся числами 2, 4, 8
Найти сумму положительных чисел больше 20 и меньше 100, кратных трем и заканчивающиеся числами 2,...

Найти сумму всех чисел кратных трем из заданного диапазона
Здравствуйте господа программисты.Помогите решить задание. Дан диапазон чисел -100\leq a \leq 100...

С клавиатуры вводится длинное целое число, не менее 50 цифр. Найти сумму цифр кратных трем
С клавиатуры вводится длинное целое число, не менее 50 цифр. Найти сумму цифр кратных трем. Pascal

Найти количество всех цифр, кратных трем и семи
Распишите пожалуйста всю задачу! В массиве А целых цифр найти количество всех цифр, кратных трем...

__________________
5
Эксперт Pascal/Delphi
6617 / 4450 / 4739
Регистрация: 05.06.2014
Сообщений: 21,864
22.09.2014, 08:46 2
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
35
36
37
38
39
40
41
const
  n=10;
 
var
  a,b:real;
  y:array [1..n] of real;
  i:integer;
  sum:integer;
 
function SumOfDigits(x:real):integer;
var
  s:string;
  digit,code,i:integer;
  sum:integer;
begin
  str(x,s);
  sum:=0;
  for i:=1 to length(s) do
    begin
      val(s[i],digit,code);
      if code=0 then
        if digit mod 3=0 then
          sum:=sum+digit;
    end;
  SumOfDigits:=sum;
end;
 
begin
  randomize; 
  sum:=0;
  readln(a,b);
  for i:=1 to n do
    begin
      y[i]:=random*b+a;
      writeln(y[i]);
    end;
  for i:=1 to n do
    sum:=sum+sumofdigits(y[i]);
  writeln(sum);
  readln;
end.
0
Модератор
63322 / 47038 / 32422
Регистрация: 18.05.2008
Сообщений: 114,017
22.09.2014, 08:55 3
А я думаю что нужно так
Цитата Сообщение от Sonne89 Посмотреть сообщение
чисел кратных трем
Иначе фиг знает сколько цифр выдаст компьютер при
Pascal
1
y[i]:=random*b+a;
Поэтому сумму цифр я бы считал для
Pascal
1
if(frac(y[i]=0))and(round(y[i])mod 3=0)
А сумму цифр считал бы как обычно для целых чисел.
1
Эксперт Pascal/Delphi
6617 / 4450 / 4739
Регистрация: 05.06.2014
Сообщений: 21,864
22.09.2014, 09:21 4
А я не понял задание. Невнимательно прочел. Понял как "... цифр кратных трем...".

Добавлено через 16 минут
Вопрос возник вдруг: а понятие кратности вообще применимо к вещественным числам?
0
Модератор
63322 / 47038 / 32422
Регистрация: 18.05.2008
Сообщений: 114,017
22.09.2014, 09:35 5
Нет, если у них есть дробная часть, потому и пишу
Pascal
1
if(frac(y[i]=0))and(round(y[i])mod 3=0)
Добавлено через 58 секунд
Число 6 тоже может быть типа real

Добавлено через 1 минуту
Но числа в массив нужно водить с клавиатуры.
1
Эксперт Pascal/Delphi
6617 / 4450 / 4739
Регистрация: 05.06.2014
Сообщений: 21,864
22.09.2014, 11:51 6
Спасибо, теперь ясно. Я думаю, что необходимые изменения тс сам внесет в программу. Если не сможет, то поможем.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2014, 11:51

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

Найти сумму всех элементов массива, кратных трем
Дан одномерный массив, который состоит из целых чисел в диапазоне от –30 до 30. Найти сумму всех...

Найти сумму всех элементов массива кратных трем
Дан одномерный массив состоящий из 25 элементов целого числа.Найти сумму всех элементов кратным...

В массиве найти произведение всех чисел кратных трем
помогите решить лабу.... (извините за плохой перевод... перевела как смогла) Варіант 13. ...

Найти сумму чисел, кратных трем, в диапазоне от 0 до 50
Помогите пожалуйста.... Найти сумму чисел, кратных трем, в диапазоне от 0 до 50

Задать массив с целыми и вещественными числами. С++
Как задать массив, в который можно записать и целые и вещественные числа? Здесь с целыми все в...

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


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

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

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