// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var x:=ReadReal('x='); var s:=x**3+x**5+x**n; Writeln(s) end.
2. Со стандартной функцией возведения в степень
begin var n:=ReadInteger('n='); var x:=ReadReal('x='); var s:=Power(x,3)+Power(x,5)+Power(x,n); Writeln(s) end.
Пример n= 8 x= 2.3523 1022.47383513855
3. С собственной лямбда-функцией возведения в степень
begin var n:=ReadInteger('n='); var x:=ReadReal('x='); var Pow:(real,integer)->real:=(a,b)->Exp(b*Ln(a)); var s:=Pow(x,3)+Pow(x,5)+Pow(x,n); Writeln(s) end.
4. С собственной обычной функцией возведения в степень
function Pow(a:real; b:integer):=Exp(b*Ln(a));
begin var n:=ReadInteger('n='); var x:=ReadReal('x='); var s:=Pow(x,3)+Pow(x,5)+Pow(x,n); Writeln(s) end.
5. На "древнешкольном", в стиле ТурбоПаскаль-1974 языке
function Pow(a:real; b:integer):real; begin Pow:=Exp(b*Ln(a)) end;
var n:integer; x,s:real;
begin Write('n='); Read(n); Write('x='); Read(x); s:=Pow(x,3)+Pow(x,5)+Pow(x,n); Writeln(s) end.
Алла14
11.10.2020
1.Файл размером 36 Мбайт передаётся через некоторое соединение за 3 минуты. Определите размер файла (в Мбайт), который можно передать через это же соединение за 240 секунд. ответе укажите одно число — размер файла в Мбайт. 2.Файл размером 9 Кбайт передаётся через некоторое соединение за 36 секунд. Определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 1024 бит в секунду больше. 3. Файл размером 24 Кбайт передаётся через некоторое соединение за 80 секунд. Определите размер файла (в Кбайтах), который можно передать через это же соединение за 2 минуты. В ответе укажите одно число — размер файла в Кбайтах. 4. Файл размером 2 Мбайта передаётся через некоторое соединение за 16 секунд. Определите время в секундах, за которое можно передать через то же самое соединение файл размером 4096 Кбайт. 5. Файл размером 80 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду.
ПИСАТЬ ВСЕ И ДАНО ТОЖЕ РЕШИТЕ
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какое количество информации содержит текст представлены на экране монитора и состоящий из 30 строк по 40 апяти символов каждый строке
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var s:=x**3+x**5+x**n;
Writeln(s)
end.
2. Со стандартной функцией возведения в степень
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var s:=Power(x,3)+Power(x,5)+Power(x,n);
Writeln(s)
end.
Пример
n= 8
x= 2.3523
1022.47383513855
3. С собственной лямбда-функцией возведения в степень
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var Pow:(real,integer)->real:=(a,b)->Exp(b*Ln(a));
var s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
Writeln(s)
end.
4. С собственной обычной функцией возведения в степень
function Pow(a:real; b:integer):=Exp(b*Ln(a));
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
Writeln(s)
end.
5. На "древнешкольном", в стиле ТурбоПаскаль-1974 языке
function Pow(a:real; b:integer):real;
begin
Pow:=Exp(b*Ln(a))
end;
var
n:integer;
x,s:real;
begin
Write('n='); Read(n);
Write('x='); Read(x);
s:=Pow(x,3)+Pow(x,5)+Pow(x,n);
Writeln(s)
end.