Решение практических задач (урок_1)

Использование числовых последовательностей

Задание 1. Вывести на экран последовательность целых чисел от 1 до 20.

begin for var i:=1 to 20 do begin write(i); end; end.

Упражнения:

1. Добавьте в вывод чисел разделитель ";".

2. Выведите числовую последовательность от 50 до 100.

3. Выведите числа в столбец.

4. Выведите на экран 10 случайных чисел (из промежутка от 1 до 100) и их квадраты. Для случайного числа используйте команду x:=random(1,100);

Использование числовых последовательностей

Задание 2. Вывести на экран последовательность четных двузначных чисел в строку через запятую.

begin for var i:=10 to 99 do begin if i mod 2 = 0

then write(i, ','); end; end.

Упражнения:

1. Выведите на экран все трехзначные числа, кратные 3 в строку через двоеточие.

2. Выведите на экран все числа от 100 до 200, кратные 12 в столбец.

Нахождение количества чисел, удовлетворяющих условию

Задание 5. В лотерее номер билета генерируют случайным образом из промежутка (1. .100). Выигрышным считается билет, номер которого кратен 5. Определить, сколько выигрышных билетов среди n сгенерированных.

var n, k, a:integer; begin write('Количество билетов n ='); // сколько билетов генерируют read(n);

k:=0; // k - количество выигрышных билетов for var i:= 1 to n do begin a:= random(1,100); write(a,' '); // генерируем номер билета а if a mod 5 = 0 then k := k+1; // если номер а кратен 5, то количество k увеличиваем на 1 end; writeln; // переход на новую строку writeln('Выиграло ',k, ' билета(-ов)'); // вывод результата end.

Упражнения:

1. На ферме работают 10 сборщиков ягод. Определите количество сборщиков, которые собрали за день больше 5 килограммов ягод. Масса собранных ягод каждым сборщиком генерируется случайным образом из промежутка (1..20).

2. Найдите количество четных трехзначных чисел.