составить программу в delphi для нахождения функций y (x), где х Є [a, b] с использованием различных операторов цикла (while, do while и for). Организовать ввод значений a, b выбор шага hx y=x3 + 2 sin x

Задача 1:

#include <iostream>

int main()

{

int n, s = 0;

setlocale(LC_ALL, "Russian");  // Русский язык в консоли

std::cout << "Введите число: ";

std::cin >> n;

while (n > 0)

{

 if (n % 10 == 7) s++;

 n /= 10;

}

std::cout << "Кол-во цифр 7 в числе: " << s;

return 0;

}

Задача 2:

#include <iostream>

int main()

{

int n, s = 0;

setlocale(LC_ALL, "Russian");  // Русский язык в консоли

std::cout << "Введите число: ";

std::cin >> n;

while (n > 0)

{

 if (n % 10 == 3) s+=3;

 n /= 10;

}

std::cout << "Сумма всех 3 в числе: " << s;

return 0;

}

Задача 1: 1

Задача 2:

begin

s:=0; k:=1;

while k < 11 do  begin

s:=s+k; k:=k+1;

end;

write(s);

end.

Задача 3:

11 10 9 8 7 7 10 11 12 13 14

Задача 4:

const N = 20;

const MAX = 100;

const MIN = -100;

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

var i,s: integer;

begin

randomize();

s:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 if (A[i]>0) and (A[i] mod 5 = 0) then

   begin

   if (s=-1) then s:=A[i]

   else if (A[i]<s) then s:=A[i];

   end;

 write(A[i],' ');

 end;

writeln();

if (s<>-1) then writeln('Минимальное значение среди положительных',

' элементов массива кратных 5: ',s)

else writeln('Не найдено');

end.