Var
x,s:real;
n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
<span>end.</span>
Сначала был каталог
D:\Школа\Информатика\<span>Практика_по_КИТ.doc.
</span>Потом создали подкаталог
D:\Школа\Информатика\8_класс\
И туда перенесли Практика_по_КИТ.doc.
Получилось:
D:\Школа\Информатика\8_класс\Практика_по_КИТ.doc.
Поэтому самый первый котолог это
D:\Школа\Информатика\
Ответ Б
program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
Var
a:array[1..100,1..100] of longint;
n,m,i,j:longint;
begin
readln(n);
for i:=1 to n do for j:=1 to n do
begin
if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]:=1 else
if odd(n) and( i=(n div 2)+1) then a[i,j]:=1 else
if i<n div 2 then a[i,j]:=0 else
if i>n div 2 then a[i,j]:=2;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]);
writeln;
end;
end.
<span>
</span>