Var
a,x:real;
begin
writeln('Введите x');
readln(x);
a:=sqrt((sqr(x)+2*x+3)/3*x);
writeln('ответ а = ',a);
end.
Var x: integer;
Begin
Writeln ('введите значение стороны для куба');
Readln (x);
Writeln ('Объем куба равен: ', sqr(x)*x);
End.
Операторы вывода
<span>Эти операторы позволяют выводить на экран
монитора данные из списка вывода. Элементами списка вывода могут являться имена
переменных, выражения, константы. Прежде чем вывести на экран значения
выражений, компьютер сначала их вычислит. Элементы списка, также как и в
операторах ввода, разделяются запятыми.
Операторы ввода
</span>
Эти команды позволяют вводить данные в
одиночные переменные или в несколько переменных сразу во время выполнения
программы с клавиатуры. Элементами списка ввода могут быть имена переменных,
которые должны быть заполнены значениями, введенными с клавиатуры.
<span> </span>
<span>
</span>
Тут всё понятно.Нелицензионное ПО может привести к потере данных или вообще к полной поломке ПК.Вот так вот
Var a,b,c:integer;
n:array [1..10] of integer;
begin
writeln('введите номера элементов для сравнения');
readln(a,b);
randomize;{скажите что посмотрели эту функцию в интернете и она нужна для подготовки программы к применению функции рандом}
for c:=1 to 10 do begin
n[c]:=random(-20,20);{так мы в массив ставим случайное число в диапазоне от -20 до 20}
writeln(n[c]);
end;
if n[a]<n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b)
else writeln('меньший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a);
<span>end.</span>