Question

На поскале помогите написать данные задания
1.Найти длину окружности L= 2·π·R заданного радиуса R. Если найденное
значение меньше 25, вычислить и вывести площадь круга S = π·R².

2.Протабулировать функцию y=(x ^2 -1) sin(x), где х изменяется на отрезке [-3; 5] с шагом 0,2. Распечатать все положительные значения y с соответствующими им значениями аргумента

3.Ввести одномерный массив A из 13 элементов. Определить количество тех элементов, которые без остатка делятся на собственный индекс.

Answer 1

Ответ:

1.program Circle;

var

R, L, S: real;

begin

write('Enter radius: ');

readln(R);

L := 2 * pi * R;

if L < 25 then

begin

S := pi * R * R;

writeln('Area of the circle: ', S:0:2);

end;

end.

2.program identifier;

var

x, y: real;

begin

x := -3;

while x <= 5 do

begin

y := (x * x - 1) * sin(x);

if y > 0 then

writeln('x = ', x:0:1, ' y = ', y:0:2);

x := x + 0.2;

end;

end.

3.program identifier;

const

N = 13;

var

A: array[1..N] of integer;

i, count: integer;

begin

for i := 1 to N do

begin

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

readln(A[i]);

end;

count := 0;

for i := 1 to N do

if (A[i] mod i = 0) then

count := count + 1;

writeln('Number of elements: ', count);

end.