Варианты заданий

Вычислить сумму первых N членов арифметической прогрессии двумя способами: с помощью цикла for и цикла repeat.

Вычислить факториал числа с использованием цикла for и цикла repeat.

Выполнить табуляцию значений функции f(x)=x²+sin(x) на заданном отрезке [a, b]

Организовать ввод строковых значений до тех пор, пока пользователь не введет слово "хватит". При этом выводить длину введенных строк.

Найти сумму ряда 1/x с заданной точностью e.

Организовать ввод букв с клавиатуры до тех пор, пока не будет нажата клавиша Escape. Подсчитать количество согласных и гласных букв.

Найти путем подбора корни квадратного уравнения ax²+bx+c=0 на заданном интервале [x1, x2] с заданной точностью е.

Найти наибольший общий делитель двух чисел с помощью цикла for.

Найти наибольший общий делитель двух чисел с помощью цикла repeat.

Найти наименьшее общее кратное двух чисел с помощью цикла while.

Найти наименьшее общее кратное двух чисел с помощью цикла repeat.

Вывести на экран таблицу умножения чисел.

Определить, является ли данное натуральное число простым.

Вывести все простые натуральные числа на отрезке [N1, N2]

Найти сумму первых N членов ряда 1+x/3-x²/4+x³/5-… с помощью цикла for и цикла repeat.

Найти сумму ряда 1+x/2!-x²/4!+x³/6!-… (x из отрезка [-0.5, 0.5]) с заданной точностью e.

Организовать ввод чисел в цикле до тех пор, пока не будет введено число 0. Найти наименьшее из отрицательных.

Организовать ввод чисел в цикле до тех пор, пока не будет введено число 0. Подсчитать сколько раз последовательность введенных чисел меняет знак на противоположный.

type

Arr=array [1..3] of Real;

Matrix=array [1..3,1..2] of Integer;

type

Arr=array (.1..3.) of Real;

var

M1, M2 : Arr;

Matr : Matrix;

M4, M5 : array [1..3] of Real;

const

M3 : Arr=(1,2,3);

Mat : Matrix=((1,2),(3,4),(5,6));

writeln(M1[2]);

writeln(Matr[X, Y]);

X := M2[Succ(I)];

var

A, B : array [1..5] of Integer;

C : Array[1..5] of Integer;

var

Si : array [0..100] of Real;

X, Step : Real;

i : Integer;

begin

Step := 0.1;

X :=0;

for i := 0 to 10 do begin

Si[i] := Sin(X);

X := X + Step;

end;

end.

var

A : array [1..5,1..5] of Real;

i, j : Integer;

begin

for i := 1 to 5 do

for j := 1 to 5 do begin

write('A[',i,',',j,']=');

readln(A[i,j]);

end;

for i := 1 to 5 do begin

for j := 1 to 5 do

write(A[i,j]:10:2);

writeln;

end;

end.