программа паскаль Задача:

Опишите:

тип массив TStroka как массив целых чисел из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM;

тип массив TTablica как массив из строк целых чисел (TStroka) из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM;

процедуру procedure Zap(var m: TTablica), которая заполняет массив, заданным образом;

процедуру procedure Vivod(m: TTablica), которая выведет элементы массива в виде таблицы через один пробел.

Формат ввода:

Описан в зад

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.

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1