0 / 0 / 0
Регистрация: 13.10.2013
Сообщений: 25
1

Подсчитать количество чисел, больших заданного числа L и стоящих на местах, кратных 3

18.10.2013, 16:55. Показов 1232. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подсчитать количество чисел,больших заданного числа L и стоящих на местах,кратных 3; вычислить произведение чисел,принадлежащих промежутку [C,D);
Вот,что я написал.Подскажите чего не хватает?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses crt;
type
    mas=array[1..100] of byte
var
   a:mas;
   i,C,D,s:integer;
Begin
   write('Введите число С');
   readln(C);
   write('Введите число D');
   readln(D);
 
   For i:=C to D-1 do
   begin
          If i mod 3=0 then
          begin
                 If (a[i]>100) then
                 s:=s+1;
          end;      
  end;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2013, 16:55
Ответы с готовыми решениями:

Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного
1.Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и...

Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; подсчитать также...

Вычислить произведение чисел, больших D и стоящих на местах, кратных 3, подсчитать количество неравных X
Вычислить произведение чисел, больше заданного D и стоящих на местах, кратных 3; подсчитать также...

Подсчитать количество неположительных чисел, стоящих на местах, кратных 4
Дан одномерный массив из N элементов. В соответствии с вариантом напишите плз программу. ...

1
Супер-модератор
6194 / 2942 / 1300
Регистрация: 04.03.2013
Сообщений: 5,788
Записей в блоге: 1
18.10.2013, 17: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
type
  mas = array[1..20] of byte;
var
   a : mas;
   l, i, k, C, D: byte;
   p : word;    
Begin
   p := 1;
   k := 0;
   randomize;
   {принимаем входные данные}   
   repeat
    write('Введите числа С и D : ');
    readln(C, D)
   until (C < D) and (C > 0) and (D > 0) and (C < 255) and (D < 255);
   repeat
    write('Введите число L: ');
    readln(L)
   until (L > 0) and (L < 255);
   {заполняем массив случайными числами от 1 до 101}
   for i := 1 to 20 do
   begin
    a[i] := random(100) + 1;
    write(a[i]:4)
   end;
   writeln;
   {считаем количество чиселбольшых L и на местах кратных 3}
   {и произведение принадлежащих [C,D)}
   for i := 1 to 20 do
   begin
    if (a[i] > L) and (i mod 3 = 0) then inc(k);
    if (a[i] >= C) and (a[i] < D) then p := p * a[i]
   end;
   {результаты}
   writeln('количество чиселбольшых L и на местах кратных 3: ', k);
   writeln('произведение принадлежащих [C,D): ', p)
end.
0
18.10.2013, 17:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2013, 17:46
Помогаю со студенческими работами здесь

Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3
ЗАДАНИЕ 2) Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3;...

Подсчитать количество чисел, больших 2 и стоящих на местах, кратных 3
Дан вектор чисел произвольной длины. Используя программный фрагмент, подсчитать: количество чисел,...

Подсчитать количество чисел, меньших заданного А и стоящих на местах, кратных 4
Подсчитать количество чисел, меньших заданного А и стоящих на местах, кратных 4; вычислить...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru