нужно очень УМОЛЯЮ. если не сложно можно с подробными действиями и решением

Question

Информатика: нужно очень УМОЛЯЮ. если не сложно можно с подробными действиями и решением ​

лисичка132 · Accepted Answer

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

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

нужно очень УМОЛЯЮ. если не сложно можно с подробными действиями и решением ​

MOGZ ответил