===== PascalABC.NET =====
begin
var x := ReadReal;
var (K, L) := (2.7, 3.0);
var y, a: real;
if x < 16 then
y := L*x/(x+1)
else
y := K + 2*x;
a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));
Print('y =', y, ' a =', a)
end.
А что нарисовать и сфоткать то?
Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Получится слово вторник.
<span>insert - это вставка одной строки в другую начиная отсчёт с начала слова,мы вставили s1 в строку s в 4 по счёту место,получилось торникг,дальше мы строку s2 вставляем в строку s на 1 место по счёту и получаем слово вторникг,дальше мы операцией delete удаляем 8 по счёту букву то есть букву г,вот так вот получаем слово вторник.</span>