10.12.2019, 04:41 [+3 UTC]
в нашей команде: 4 053 чел. | участники онлайн: 2 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
09.12.2019, 23:25
Всего: 151216

Последний ответ:
09.12.2019, 19:16
Всего: 259548

Последняя рассылка:
09.12.2019, 18:46

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

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

Наша кнопка:

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

Отзывы о нас:
15.09.2011, 11:21 »
fomservl
Спасибо, сработало. В моем букваре код был немного другой, видимо с ошибкой. [вопрос № 184026, ответ № 268224]
06.09.2013, 18:00 »
комик
полезная информация. . .

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 687
Gluck
Статус: 10-й класс
Рейтинг: 552
puporev
Статус: Профессионал
Рейтинг: 479

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

Консультация онлайн # 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.14944 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35