Передача перо* дача
можешь нарисовать лучше ;)
Использовать Чертежник
алг
нач
сместиться в точку (1,13)
нц 3 раз
Фигура
кц
кон
| Фигура
алг Фигура
нач
сместиться на вектор (1,-5)
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,5)
сместиться на вектор (4,0)
сместиться на вектор (0,-1)
сместиться на вектор (-3,0)
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,3)
сместиться на вектор (2,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (0,-1)
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
кон
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:5);
s:=s+a[i];
end;
writeln;
writeln('Summa: ',s);
end.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x =');
var fx: real;
// полный if
if x < -1 then fx := 2 * x + 4
else fx := x * x;
// сокращенный if
if x < -1 then fx := 2 * x + 4;
if x >= -1 then fx := x * x;
// совсем короткий вариант
fx := x < -1 ? 2 * x + 4 : x * x;
// результат
Writeln(fx)
end.
