Ответ Аня заняла 1 место
Таня 4
Оля 2
Аня 1
Лена 3
Program n1;
var y: real;
x: integer;
begin
write('введите x: ');
readln(x);
if x mod 2=0 then y:=x*x else y:=x*x*x;
writeln(y);
end.
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>
1. Выделить, удерживая кнопку контрол, диапазон ячеек, для которых нужен график.
2. Вставка => Диаграмма => График
3. Появляется вкладка "График". Редактируешь свой график как захочешь.
Var
I, N, D,L:longint;
X,Y:real;
Begin
Assign (input, ‘klad.txt’);
Reset (input);
Read(N);
X:=0; Y:=0;
For I:= 1 to N do begin
Read (D, L);
X := X+sin(Pi/4*(D-1))*L;
Y := Y+cos(Pi/4*(D-1))*L;
End;
Assign(output, ‘kladt.txt’);
Rewrite(output);
Writeln(X:0:3,’ ’,Y:0:3);
Close(output);
End.