Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197112
17.11.2019, 10:31
0.00 руб.
0 2 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D).в pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
17.11.2019, 18:32
общий
Адресаты:
Цитата: JonMoxley
:Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D)

Пытаюсь настроить свой "хрустальный шар":
  • это некоторая последовательность- массив или последовательность, чем-то заканчивается;
  • нумерация см. выше начинается с нуля или 1;
  • у Вас есть побратим 197093

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
22.11.2019, 14:55
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]const
n=30;
var
a:array[1..n]of integer;
b,c,d,e,f:integer;
begin
for b:=1 to n do
begin
a[b]:=random(50);
write(a[b]:3);
end;
writeln;
write('enter L:=');readln(f);
repeat
write('enter C[1..',n,']:=');readln(c);
until c in[1..n];
repeat
write('enter D(>',c,'):=');readln(d);
until d>c;
e:=0;
for b:=1 to n do if((b mod 3) =0)and(f<a[b])then inc(e);
writeln('count:=',e);
e:=1;
for b:=1 to n do if b in [c..d]then e:=e*a[b];
writeln('product:=',e);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа