А)Еёмф гсёна - рпуёцё шбт
б)Т Опгэн дпепн
в)Рёсгпё тёоуавса
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Получится такая последовательность кодов:
<span>86 42 01 41 83 43 01 41 86 42</span>
<span>
</span>
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$