Оформите описание модели движения в среде с сопротивлением, выделив предположения, при которых строится данная модель. Определите на их осно-ве существенные факторы и параметры, описывающие эти факторы. Запишите связь между параметрами. Какого вида оказалась построенная информацион-ная модель?

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

program zadacha;

uses crt;

var otvet: real;

begin

otvet: = ((4785**45*45))/50;

writeln(otvet: 5: 5);

readkey;

end.

цифровая камера сохраняет изображение в цифровом формате на носителях с матрицы. если раньше фотография получалась из-за процессов, то сейчас пленку заменяет карта памяти - матрица заполняет значение каждого элемента-пиксела. таким образом получается растовое изображение.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает