Срочно решить задание по информатике с сайта Stepik
Отправить ответы на данные программы (составить и отправить в ответ) программы
Пожалуйста срочно нужно.
https://stepik.org/lesson/299699/step/2?unit=281531

Ответ:

На Pascal

=========

var k, i, n, a:integer;  

begin  

read(n);  

while i<n do begin    

read(a);    

if (a mod 10=6) then

k := k+1;  

i := i+1;    

end;    

writeln ('Количество чисел, оканчивающихся на 6: ', k);    

end.