Пусть дано N чисел,введенных с клавиатуры. Найти количество только тех из них,которые...

Question

Пусть дано N чисел,введенных с клавиатуры. Найти количество только тех из них,которые кратны 2 и оканчиваются на 8.
Программа в паскале(с помощью цикла)

Answer 1

Var   a: array [1..100] of integer;   
k,n,i:integer;
begin
k:=0;   
write ('Введите размер: ');    
readln(n);    
for i:=1 to n do      
     readln (a[i]);    
for i:=1 to n do    
begin     
     If a[i] mod 10=8 then      
          k:=k+1   
end;   
write (k);
end.

Comments

Просто If (a[i]mod 2=0) then

---

Так ты имеешь в виду?

---

И так и так верно, просто можно короче ))

---

Нет, if a mod 10 = 8, если делится на 2, ещё не значит, что кончается на восемь

---

Но если кончается на 8, то точно делится на 2

---

Ок

---

там не хватило ещё mod a 2=0

---

Можно и без него

---

Так 8 уже четное число

Answer 2

Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
    Begin
    Read(A);
    if (A mod 10 = 8) then k:=k+1;
    End;
WriteLn(k);
End.