Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
1, 2, 5, 7, 8, 10, 11, 13, 14, 16, 19, 20, 24
в разных языках программирования правила могут немного отличаться но вот общий принцип:
- переменная должна начинаться с латинской буквы
- не может содержать в себе знак пробела
- может содержать либо заканчиваться на цифру или знак подчеркивания
- не может собержать русских букв
- не может совпадать с служебными словами и именами функций
- некоторые языки различают регистр букв. И переменные "f" и "F" будут двумя разными переменными, а в некоторых это будет одна и та же переменная.
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.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение:</em></u>
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.