Question

Очень срочно !!! Помогите

Answer 1

var

 i, k, n, c: Integer;

begin

 Write ('Введите количество чисел: ');

 ReadLn (k);

 c := 0;                                     // счетчик чисел, оканчивающихся на 8

 for i := 1 to k do begin                    // цикл ввода для заданного количества чисел

   Write ('Введите ', i , '-ое число: ');

   Readln (n);

   if n mod 10 = 8 then                      // если число оканчивается на 8

     c := c + 1;                             // то увеличиваем счетчик

 end;

 Write ('Оканчиваются на 8: ', c, ' чисел.');

end.