помогите написать программы СРОЧНО Pascal abc
1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных
2.сначала вводится кол-во чисел, а затем сами числа вычислить произведение чисел кратных 3, оканчивающихся на 6 или 9
Ответы
Ответ дал:
0
Первая программа:
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
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
Ответ дал:
0
БОЛЬШОЕ спасибо
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад