Begin
for i:=1 to 10 do begin
read (b[i]);
end;
for k:=1 to 10 do begin
a[i]:= b[i]*5;
write (a[i]);
end;
end.
Информационная модель — модельобъекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния
Формат вывода числа a
a:4:3
где a - это само число, 4 - кол-во выделяемых на вывод числа символов, 3 - длина дробной части (числа могут быть любыми).
Например, вывод числа:
writeln('Chislo a ravno ', a:4:3);
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.