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

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 (десятки) равно четырём или шести, тогда на экран тебе выводится информация, подтверждающая это.