Стрекоза Прообраз Вертолёта
Тип дробной переменной будет вещественный.
Program lololo;
var x,y:real;
begin
readln(x);
y := 1+1/x+1/(x*x);
writeln(y);
end.
будьте, пожалуйста, внимательней. Вчера вечером была эта же задача.
znanija.com/task/1112711
бег - бог - рог - рок - рак - мак - маг - шаг
море-горе-гора-пора-пара-папа-сапа-саша-суша
миг-маг-мак-пак-пек-век;
бант-бунт-бурт-борт-корт-кора-коса
шар-шаг-лаг-луг-луб-куб
муха - муpа - туpа - таpа - каpа - каpе - кафе - кафp - каюp - каюк - кpюк - уpюк - уpок - сpок - сток - стон - слон
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, -22, 33);
a.Println;
a.Transform(t -> t > 0 ? 1 : t);
a.Println
end.
<h2>Пример</h2><h3>-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1</h3><h3>-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1</h3>