27.05.2020, 23:57 [+3 UTC]
в нашей команде: 4 563 чел. | участники онлайн: 4 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
25.05.2020, 14:36

Последний вопрос:
27.05.2020, 21:17
Всего: 152504

Последний ответ:
27.05.2020, 20:21
Всего: 260204

Последняя рассылка:
27.05.2020, 11:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
01.06.2017, 19:34 »
pNod
Игорь Витальевич, спасибо за помощь! Профессионально, быстро, плюс ясные комментарии! [вопрос № 191080, ответ № 275050]
06.02.2020, 12:42 »
dar777
Спасибо огромное за грамотное решение! [вопрос № 197674, ответ № 279410]
18.10.2009, 16:42 »
Ирина П.
Спасибо за поясненний ответ! [вопрос № 173373, ответ № 255508]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 462
Delph
Статус: 3-й класс
Рейтинг: 315
puporev
Статус: Профессор
Рейтинг: 189

Перейти к консультации №:
 

Консультация онлайн # 197112
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: JonMoxley (Посетитель)
Отправлена: 17.11.2019, 10:31
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D).в pascal

Состояние: Консультация закрыта

Здравствуйте, JonMoxley!

Смотрите код:

Код (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.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 22.11.2019, 14:55

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 197112

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 1

= общий = | 17.11.2019, 18:32 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
JonMoxley:

© Цитата: JonMoxley
:Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D)

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

smile

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

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14281 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39