** Pascal. Задача по Информатике: Дана последовательность из 16 чисел(числа вводятся с...

Question

На Pascal.
Задача по Информатике:
Дана последовательность из 16 чисел(числа вводятся с клавиатуры). Подсчитать количество чисел оканчивающихся на шесть.

Answer 1

Var  n, i, count: integer;
begin 
 count := 0; 
for i := 1 to 16 do   begin   
read(n);   
if n mod 10 = 6 then count := count + 1; 
 end; 
writeln(count);
end.

Comments

А что такое count?

---

это переменная, ее можно заменить любым другим словом/буквой

---

в данной программе она считает количество чисел, оканчивающихся на 6