RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D).в pascal
Дата отправки: 17.11.2019, 10:31 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, 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.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
