Написать программу в pascal abc. последовательность чисел заканчивающихся на 0(ноль необходимо найти количество чисел у которых количество десятков "4" или "6".

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  n,k,d:integer;
begin
  k:=0;
  repeat
    Write('Введите натуральное число, 0- завершить: ');
    Read(n);
    if n>0 then begin
      d:=(n mod 100) div 10;
      if (d=4) or (d=6) then Inc(k)
      end
  until n=0;
  Writeln('Искомых чисел - ',k)
end.

Тестовое решение:
Введите натуральное число, 0- завершить: 345
Введите натуральное число, 0- завершить: 6285
Введите натуральное число, 0- завершить: 7854
Введите натуральное число, 0- завершить: 1324
Введите натуральное число, 0- завершить: 653
Введите натуральное число, 0- завершить: 66666
Введите натуральное число, 0- завершить: 0
Искомых чисел - 2

Program random; 
var a, b, c, d:integer;
begin
read (a);
if a mod 10 = 0 then writeln ('число оканчивается на ноль')
else writeln ('число оканчивается не на ноль');
end. – программа, которая высчитывает, оканчивается ли число на ноль или нет. Принцип работы: 
ты вводишь число. Если число делится на 10, тогда на экран тебе выводится подтверждающая этому информация, что число оканчивается на ноль.  

program random; 
var a, b:integer;
begin
read (a, b); // a – десятки, b – единицы
if a = 4 or 6 then writeln ('число имеет в себе 4 десятка')
end. – программа, которая говорит тебе, имеет ли число в себе 4 или 6 десятков. Принцип работы: 
ты вводишь 2 переменные: a и b; a — это десятки, а b — единицы. Если число a (десятки) равно четырём или шести, тогда на экран тебе выводится информация, подтверждающая это. 

ответ:

1) 5

2) 0

3) 1

Объяснение:1) s:=0; for i:=10 downto 6 do s:=s+1;

Переменная s изначально равна 0. Потом идёт цикл от 10 вниз до 6, который каждый раз будет прибавлять к s единицу (s[новая] = s[старая] + 1). Цикл от 10 до 6 включительно, то есть он буде выполнятся 10-6+1=5 раз (+1 т.к. включительно). Получается мы 5 раз прибавляем к нулю 1. ответ: 0 + 1*5 = 5.

2)s:=0; for i:=8 to 3 do s:=s+1;

Переменная s изначально равна 0. Потом идёт цикл от 8 до 6, который выполнятся не будет, так как 8>6, и увеличиваясь на 1 каждый раз, он никогда не дойдет до 6. Для работы необходимо писать downto вместо to, то есть вниз до. Однако такового тут нет, поэтому цикл не выполняется и переменная s остаётся 0. ответ: 0.

3)s:=1; for i:=2 downto 10 dо s:=s+1;

Переменная s изначально равна 1. Потом идёт цикл от 2 вниз до 10, который выполнятся не будет, так как 2<10, и уменьшаясь на 1 каждый раз, он никогда не дойдет до 10. Для работы необходимо писать to вместо downto, то есть до, а не вниз до. Однако такового тут нет, поэтому цикл не выполняется и переменная s остаётся 1. ответ: 1.

1)   5

2)   0

3)   1

Объяснение:

Цикл for   ...   downto   ...   do выполняется если начальное значение переменной счётчика больше или равно конечному значению переменной счётчика

Цикл for   ...   to   ...   do выполняется если начальное значение переменной счётчика меньше или равно конечному значению переменной счётчика

1)

s = 0

для i от 10 до 6 выполнить s = s + 1

начальное значение (10) переменной счётчика (i) больше или равно конечному значению (6) переменной счётчика (i)

10 >= 6     (да   -   цикл выполняется)

количество повторений цикла равно начальное значение (10) переменной счётчика (i) минус конечному значению (6) переменной счётчика (i) плюс единица

количество повторений цикла = 10 - 6 + 1 = 4 + 1 = 5

Т.к. переменная s каждое повторение цикла увеличивается на одно и тоже число (1), то за весь цикл переменная s изменится на 1 * 5

Т.к. в начале s = 0, то

s = 0 + 1 * 5 = 5

2)

s = 0

для i от 8 до 3 выполнить s = s + 1

начальное значение (8) переменной счётчика (i) меньше или равно конечному значению (3) переменной счётчика (i)

8 <= 3     (нет   -   цикл не выполняется)

Т.к. цикл не выполняется, то переменная s остаётся равна тому, чему была равна в начале s = 0

3)

s = 1

для i от 2 до 10 выполнить s = s + 1

начальное значение (2) переменной счётчика (i) больше или равно конечному значению (10) переменной счётчика (i)

2 >= 10     (нет   -   цикл не выполняется)

Т.к. цикл не выполняется, то переменная s остаётся равна тому, чему была равна в начале s = 1