Задачи по Pascal. Сколько раз в диапазоне встречается число 12.

Условие задачи : Дано 30 чисел, сколько раз в этом диапазоне встречается число 12 (Язык Pascal)

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Нам дано 30 чисел значит цикл у нас будет от 1 до 30 , в нем мы присвоим переменной , допустим number какое-то случайное число, выведем его и затем проверим равняется ли оно 12, если да то увеличиваем кол-во таких чисел на 1.

Для того чтобы определить сколько раз в диапазоне встречается число 12 нам понадобятся следующие переменные :

1. Переменная i — для цикла
2. Переменная number — для числа
3. Переменная count — для кол-ва чисел равных 12

Начнем мы с каркаса нашей программы :

var
    i , number , count : integer;
begin
   randomize;
end.

Тут мы объявили три переменные и включили генератор случайных чисел. Подробнее читайте (тут)

Дальше цикл :

 for i:=1 to 30 do
     begin
         number := random(30);
         write(number, ' | ');

         if number = 12 then
             count := count + 1;
      end;

Всё просто, сначала присваиваем какое-то случайное число от 0 до 29, потом его выводим, затем смотрим равно ли оно 12 если да, то увеличиваем кол-во на 1.

И теперь осталось только вывести кол-во чисел равных 12.

Всё решение задачи Pascal :

uses crt;

var
    i , number , count : integer;
begin
    clrscr;
    randomize;

    for i:=1 to 30 do
        begin
            number := random(30);
            write(number, ' | ');

            if number = 12 then
                count := count + 1;
        end;
    writeln;
    writeln('Кол-во чисел равных 12 : ', count);
    readln;
end.