ИНФОРМАТИКА 9 КЛАСС
ПОМОГИТЕ ПОЖАЛУЙСТА
1)Подсчитайте произведение отрицательных чисел последовательности из 5 чисел, введенных с клавиатуры.
2)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество чисел кратных 3 этой последовательности.
3)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите сумму чисел кратных 7 этой последовательности.
4)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество четных, отрицательных чисел последовательности.
ПОМОГИТЕ ПОЖАЛУЙСТА
1)Подсчитайте произведение отрицательных чисел последовательности из 5 чисел, введенных с клавиатуры.
2)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество чисел кратных 3 этой последовательности.
3)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите сумму чисел кратных 7 этой последовательности.
4)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество четных, отрицательных чисел последовательности.
Answers & Comments
Verified answer
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.