Информатика 9 класс

1)подсчитайте произведение отрицательных чисел последовательности из 5 чисел, введенных с клавиатуры.
2)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите количество чисел кратных 3 этой последовательности.
3)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите сумму чисел кратных 7 этой последовательности.
4)пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. вычислите количество четных, отрицательных чисел последовательности.

1)

var i,p,n: integer;

begin

p:=1;

for i:=1 to 5 do begin

readln(n);

if(n<0) then p:=p*n;

end;

write(p);

end.

2)

var n,k,x,i: integer;

begin

readln(n);

k:=0;

for i:=1 to n do begin

readln(x);

if x mod 3=0 then k:=k+1;

end;

write(k);

end.

3)

var n,s,x,i: integer;

begin

readln(n);

s:=0;

for i:=1 to n do begin

readln(x);

if x mod 7=0 then s:=s+x;

end;

write(s);

end.

4)

var n,k,x,i: integer;

begin

k:=0;

readln(n);

for i:=1 to n do begin

readln(x);

if(x mod 2=0) and (x<0) then k:=k+1;

end;

write(k);

end.

может ты имеешь ввиду tf2?

1: 91 => 182,

1: 182 => 108 (остаток от 364/256 ),

2: 108 => 107,

1: 107 => 214,

1: 214 => 172 (остаток от 428/256 ),

2: 172 => 171.

ответ: 171

№1

1) 20+19*9=20*171=191

2) 47063-184=46879

3) 15383*96=1476768

4) 1476768: 191=7732

5) 46879*7=328153

6)7732+10399=18131

7)18131+328153=346284

№2

1)1118: 13+482=568

2)32281: 1699=19

3)19*568=10792

4)10792*7=75544

5)380: 10*12=456

6)456*6=2736

7)75544-2736=72808