<span>Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знаками</span>
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.
Sqrt(a*a+b*b+c*d)/sqrt(a*b*c*d)
Program asd;
Var a1,a2,a3:integer;
sr:real;
BEGIN
Write('Введите А1: ');
Readln(a1);
Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1>=5) and (a1<=10) then Writeln('Есть. ',a1)
else
If (a2>=5) and (a2<=10) then Writeln('Есть. ',a2)
else
If (a3>=5) and (a3<=10) then Writeln('Есть. ',a3)
else
Writeln('Нету.')
<span>END.</span>
Программа переводит метры в километры
Для хранения номера паспорта нужно выбрать числовой тип.