Поскольку тут речь о последовательности неизвестной длины, вводимой с клавиатуры до появления нуля, а условие позволяет для каждого вводимого числа сразу решить, должно ли оно входить в сумму, задача решается без использования массива и условие "<span>Количество чисел не превышает 1000" - это просто ловушка для наивных с тем, чтобы в случае использования массива длиной 1000 объявить затем решение неэффективным по памяти.
</span><em>1. Решение на современной версии Паскаля</em>
<em>PascalABC.NET 3.2, сборка 1389 от 01.03.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadSeqIntegerWhile(n->n<>0)
.Where(n->(n mod 3=0) and (n mod 10=6)).Sum;
Writeln('Сумма отобранных чисел равна ',s)
end.
<em>Пример</em>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
<em>2. Решение "по-школьному"</em>
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln('Сумма отобранных чисел равна ',s)
end.
<u>Пример</u>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
Получение информации
Обработка не которой оинформации
Пользывание соц сетями, материалами
Отправка информации
Передача информации
И куча куча всего
Задача выполнена на языке Pascal;
Var
i: integer;
w: real;
mas: array[1..10] of integer;
Begin
w:= 1;
For i:=1 to 10 do
Begin
if mas[i] > 0 then w:= w * mas[i];
End;
Writeln (mas);
End;
определи закономерность в расположении чисел и продолжи ряды 1,3,6,4 _ _ _ _; 9,7,10,8 _ _ _ _; 3,2,1,6,5,4, _ _ _ .
Viktoriya1603
в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6;во второй будет такая:-2;+3;-2.... 9,7,10,8,11;и последняя -1,-1,+5,-1,-1......3,2,1,6,5,4,3.вот и все)
