пожалуйста,составьте программу по паскалю. - есть ответ

Ответы:

P.S.Неужели проще задать вопрос и ждать ответа, чем написать этот код и запустить самому?

PowerShell:
1..50|%{Get-Random -Minimum 15 -Maximum 36}|?{!($_%7)-and$_-lt30}|%{$M=[Numerics.BigInteger]::One}{$M*=$_}{$M.ToString()}

Махн0

А вы, blahblah, когда на работу пойдёте тоже других будете просить, чтоб они за вас работали, питались, с женой е... )))

RReverser

const n=50;
var a:array[1..n]of integer;i:integer;
d:longint;
begin
d:=1;
for i:=1 to n do
if (a[i]=21)or(a[i]=28) then
d:=d*a[i];
if d=1 then Writeln('Таких элементов не найдено') else Writeln('Произведение=',d);
end.

RReverser

sandurlay, у вас программа под Delphiйскую разновидность Object Pascal, а автору вопроса нужна прога на обычном паскале. К тому же критерий if A[i] in [21,28] - некорректная запись для значений, занимающих больше одного байта, т.к. множества можно строить только для них.

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.