Действительные числа - любое вещественное чило, будь оно положительным, отрицательным или нулем.
фигура находится в l четверти, поэтому все х и у будут положительными.
Закрашенной области принадлежат точки:
(0;3)
(1;1) (1;2) (1;3) (1;4)
(2;1) (2;2) (2;3) (2;4) (2;5)
(3;1) (3;2) (3;3) (3;4)
(4;3)
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</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>
256000*120(2 минуты в секундах)=30720000 бит
переводим бит в килобайты
3750 килобайт)