Var y,x:double;
BEGIN
x:=1;
y:=5*sqr(x)+10*x+2;
WriteLn(y);
Readln();
END.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-10,50); a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
<u>Пример</u>
4 -6 26 -5 14 17 17 47 -9 26
4 6 26 5 14 17 17 47 9 26
N=10;
k=17*40;
I-?
Решение
N=2^i
i=4
I(одного пароля)=17*i=68бит=9Байт
I(40-ка)=I(1)*40=360Байт-ответ
Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.