Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.
Var
i:integer;
y,x:real;
begin
writeln('Введите аргумент X');
readln(x);
if (x>=0) and (x<=2) then
begin
y:=ln(30)+exp(2*x);
writeln('1 случай:');
end
else
if (x<0) then
begin
y:=cos(x-5);
writeln('2 случай:');
end
else
begin
y:=2*pi*x;
writeln('3 случай:');
end;
writeln('Значение функции Y = ',y);
end.
Максимальным значение в наборе из 8 чисел является 6, а минимальным - 2.
Двойка стоит в третьей позиции, соответственно 3 - это и есть искомый номер максимального либо минимального числа.
#include <iostream>
using namespace std;
int main()
{
double x, y;
cin >> x >> y;
if ((x >= 2) && (y >= (5 * x - 22) / 3) && (y <= (23 - 4 * x) / 3))
cout << "true";
else
cout << "false";
return 0;
}