С клавиатуры вводится n чисел, определить а) произведение чисел оканчивающихся ** 1 б)...

Question

С клавиатуры вводится n чисел, определить
а) произведение чисел оканчивающихся на 1
б) кол-во чисел кратных 2 и3

Comments

да

---

Так??

---

Или надо 2 разные проги??

---

а можно спросить вам нужно найти числа кратные 2 и 3 а вы ищите 6

---

в условие в задачи у вас написано if a mod 6= 0 then

---

2 разные

---

Var n,k,pr,i,a,f:longint;beginreadln(n);pr:=1;for i:=1 to n do begin read(a); if a mod 10=1 then pr:=pr*a; if a mod 3= 0 then k:=k+1; if a mod 2 =0 then f:=f+1; end; writeln('произведение = ',pr); writeln('количество чисел кратных 2 = ',f); writeln('количество чисел кратных 3 = ',k); end.

---

как-то так должно быть

---

можешь помочь еще с другими задачами???

---

https://znanija.com/task/27123307

Answer 1

Вот так должно Быть !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 2

Pascal


Var n,k,pr,i,a:longint;
begin
readln(n);
pr:=1;
for i:=1 to n do begin read(a); 
if a mod 10=1 then pr:=pr*a;
if a mod 6= 0 then k:=k+1;
end;
writeln('произведение = ',pr);
writeln('количество чисел кратных 2 и 3= ',k);
end.

Comments

Неверное решение