Var
x:real;
Begin
Write('x = '); Readln(x);
if (x > 5) then
Write('y = ', x*x + 1)
else
Write('y = ', 3 - x);
end.
Пример:
x = 4.5
y = -1.5
~~~~~~~
x = 6
y = 37
О - овал Начало и Конец алгоритма
___
/___/- ввод, вывод данных
___
|___|- обработка данных
/\
\/- ромб проверка условия
----[-пояснительные записи
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(12,-12,12); a.Println;
var b:=a.Batch(a.Length div 3).Select(x->x.Reverse);
var k:=0;
foreach var e1 in b do
foreach var e2 in e1 do begin a[k]:=e2; Inc(k) end;
a.Println
end.
<u><em>Тестовое решение:</em></u>
-7 -9 8 -11 -5 -3 -2 6 11 -7 4 -6
-11 8 -9 -7 6 -2 -3 -5 -6 4 -7 11
Кабельное тв - аналоговое , наушники у телефону аналоговые , кабель vga от монитора