Примеры решений задач

1. Используя оператор Repeat, найти сумму первых n двузначных чисел, кратных 11 ( вводится с клавиатуры).

Program Primer1;

Var n, s, a, i: Integer;

Begin

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

Read(n);

s := 0; a := 11; i := 0;

Repeat

If a mod 11 = 0 then

Begin

s := s + a;

i := i + 1;

End;

a := a + 1;

Until (i = n) or (a > 99);

WriteLn('Искомая сумма = ', s);

End.

2. Используя оператор While, написать программу, вычисляющую значения функции с точностью до двух знаков после запятой на отрезке с шагом 2 и выводящую результаты вычислений в виде таблицы, состоящей из двух столбцов: столбца, содержащего значения аргумента и столбца, содержащего значения функции. Значения концов отрезка и шага должны вводиться с клавиатуры.

Program Primer2;

Var a, b, h, x, y: Real;

Begin

WriteLn('Введите значения концов отрезка :');

Read(a, b);

WriteLn('Введите шаг: ');

Read(h);

WriteLn('_____________');

WriteLn('| x | y |');

WriteLn('|______|______|');

x := a;

While x <= b do

Begin

y := x/2 + 1;

WriteLn(x: 6: 2,' | ',y: 6: 2);

x := x + h;

End;

WriteLn('|_____________|');

End.

3. Используя оператор For, написать программу, вычисляющую сумму элементов ряда для . Значения и должны вводиться с клавиатуры.

Program Primer3;

Var x, s, a: Real;

n, i: Integer;

Begin

WriteLn('Введите x и n: ');

Read(x, n);

S := 1; a := 1;

For i := 1 to n do

Begin

a := a * (-1 / x);

s := s + a;

End;

WriteLn('Искомая сумма = ', s: 4: 2);

End.

Задания Задание 1.

Написать программу с использованием оператора Repeat.

Таблица 2.1 — Варианты заданий

Вариант	Задание
1	Найти сумму квадратов первых чётных натуральных чисел.
2	Найти сумму всех двузначных чисел, кратных 3.
3	Найти произведение первых чётных натуральных чисел.
4	Найти сумму всех отрицательных нечётных двузначных числе.
5	Найти произведение первых нечётных натуральных чисел.
6	Найти сумму всех отрицательных четных двузначных чисел.
7	Найти произведение первых двузначных натуральных чисел, кратных 3.
8	Найти сумму двузначных нечётных чисел.
9	Найти произведение первых двузначных натуральных чисел, которые делятся на 5.
10	Найти сумму всех двузначных натуральных чисел, кратных 5.
11	Найти сумму квадратов первых натуральных чисел.
12	Найти сумму всех двузначных чётных чисел.

Задание 2.

Написать программу, вычисляющую значения функции с точностью до 3-х знаков после запятой на заданном отрезке с заданным шагом и выводящую результаты вычислений в виде таблицы, состоящей из двух столбцов: столбца, содержащего значения аргумента и столбца, содержащего значения функции. Значения концов отрезка и шага должны вводиться с клавиатуры. Использовать оператор While.

Таблица 2.2 — Варианты заданий

Вариант	Функция	Отрезок	Шаг
1
2
3
4
5
6
7
8
9
10
11
12