profile
Размещено 2 года назад по предмету Информатика от SaSaGa372

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

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

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

  1. Ответ на вопрос
    Ответ на вопрос дан Mir0G

    Ответ:

    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.

    1. Ответ на вопрос
      Ответ на вопрос дан SaSaGa372
      спасибо!
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.