Begin
for var i=1 to n do
Writeln(i);
end.
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Python
1. x = [1,2,3,4,5,6,7,8,9,0] #Массив
print(x[:5])
print(x[5:])
2. x = [1,2,3,4,5,6] #Массив
print(x[::-1])
3. x = [0,1,2,3,4] #Массив
for i in range(1,len(x),2): print(x[i])
4. То же самое, что 3 программа, только 1 в range(...) заменить на 0
пы сы Хэштэг это комментарий в языке Python т.е. не исполняется
В памяти компьютера на кодирование 1 символа требуется 1 байт.
Следовательно 1,25 Мб/1 байт = 1,25*1024*1024=1310720 символов в тексте
D
/ \
Игры. Мои документы
| |
Квесты 7 класс
| / \
Шерлок Холмс.exe Русский язык Математика
| |
Орфограммы.txt Домашнее задание .doc