(X>=A) and (X<=B)
это вариант для паскаля, в других языках может быть иначе
1 аккуратно
2провада
3протирать
4пыль
Program n_1;
const pi=3.14;
var r, c, s: real;
begin
writeln('Вычесление длины окружности и площади круга');
write('Введение r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('с=', c: 6:4);
writeln ('s=', s: 6:4)
end.
<u>Были исправлены ошибки в операторах </u>
<span>var r, c, s, real:
и
</span><span>writeln ('с=', с: 6:4);</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>