Var a,b,c,d:char;
begin
writeln('Введите 4 символа:');
readln(a,b,c,d);
writeln(ord(a),' ',ord(b),' ',ord(c),' ',ord(d));
end.
Const i = 6;
var x, h,y, max,k : real;
begin
k:=0;
h:= 0.01*i;
x:=0;
max:= sin(x+i);
writeln ('x':6, 'y':6);
repeat
y:= sin(x+i);
writeln(x:7:2, y:7:2);
if y > max then max:=y;
if y < 0 then k:=k+1;
x:= x + h;
until x > i + h/2;
writeln('max =', max:5:2);
writeln('Количество отрицательных=',k);
<span>end.</span>
Где фото??????????))......
1.раскрывающийся
2. вкладка
Это должно храниться на компьютере на диске D и это надо принести на флешке ил распечатать