Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
Var x:integer;y:real;
begin
write('Введите х');
read(x);
if x>0 then y:=5*exp(2*ln(x)) - 4*х/<span>exp(3*ln(x));
</span>if x=0 then y:=5*<span>exp(2*ln(x)) - 4;
</span>if x<0 then y:=5*<span>exp(2*ln(x)) - 4*x;
</span>writeln('f(x)=',y);
end.
Sub calcL(ByRef S) index = 0 For k = Len(S) To 1 Step -1 If (Mid(S, k, 1) = " ") Or (Mid(S, k, 1) = ".") Or (Mid(S, k, 1) = ",") Then index = k Exit For End If Next k L = 0 For k = index - 1 To 1 Step -1 If Mid(S, k, 1) = " " Then index = k Exit For Else L = L + 1 End If Next k MsgBox "Длина предпоследнего слова " + Str(L) End Sub
Sub test() Call calcL("В данном предложении несколько слов") Call calcL("Второе предложение более длиннее первого")End Sub
#include <iostream>
using namespace std;
int main() {
int a[4];
int count = 0;
for (int i = 0; i < 5; i++) {
cin >> a[i];
}
for (int i = 0; i < 5; i++) {
if (a[i] % 10 == 7) {
count++;
}
}
cout << count;
}