Помогите написать программы СРОЧНО Pascal abc 1.сначала вводится кол-во чисел, а затем...

Question

Помогите написать программы СРОЧНО Pascal abc
1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных
2.сначала вводится кол-во чисел, а затем сами числа вычислить произведение чисел кратных 3, оканчивающихся на 6 или 9

Comments

Произведение всех чисел, кратных пяти? Без ограничений? Ну тогда это бесконечность

---

отрицательных

---

Ну минус бесконечность - сути не меняет

---

почему минус бесконечность если использовать целочисленный тип интеджер то там как я знаю макс число 30000 и вроде можно посчитать

---

В условии ничего не сказано о том, СКОЛЬКО вводится чисел, поэтому: от -1 до минус бесконечности. Нету в условии ограничения на колечество

---

а вторую как написать?

---

там в первой скорее всего с клавиатуры сначала вводится кол-во чисел, а затем сами числа

---

Во второй то же самое. А про количество - надо в условии указывать. То, что сейчас записано в задании - решить нельзя.

---

значит там в обоих условие начала вводится кол-во чисел, а затем сами числа

Answer 1

Первая программа:

Var
   N,A:integer;
   S:real;
Begin
S:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A;
    End;
WriteLn('S = ',S);
End.


Пример работы программы:

N = 5
-5
10
15
-25
17
S = -30



Вторая программа:

Var
   A,N,k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    A:=Abs(A);
    if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1
    End;
WriteLn('k = ',k);
End.


Пример работы программы:

N = 3
756
12
39
k = 2

Comments

БОЛЬШОЕ спасибо