Как создать информационную модель для дачного дома с точки зрения строителя, художника и покупателя?

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

ответ:

30

Объяснение:

Присваиваем переменной x значение 7:

x:=7;

Присваиваем переменной s значение 0:

s:=0;

Объявляем цикл от 1 до 3, который будет каждый раз выполнять команды введённые между begin и end:

for i:=1 to 3 do begin

Присваиваем переменной s значение текущей s + x, то есть прибавляем x:

   s:=s+x;

Присваиваем переменной x значение текущей x + 3, то есть прибавляем 3:

   x:=x+3;end;

Итак, x изначально равен 7, а s - 0. Потом идёт цикл, в котором к s прибавляется x, после чего к s прибавляется 3. Цикл небольшой, можно и пройтись для наглядности:

i = 1        s := 0 + 7 = 7              x := 7 + 3 = 10i = 2       s := 7 + 10 = 17           x := 10 + 3 = 13i = 3       s := 17 + 13 = 30         x := 13 + 3 = 16

Как мы видим, конечное значение s равно 30.

// pascalabc.net 3.0, версия 1066 const   mm=50;   nn=50; var   n,m,i,j,k1,k2,p: integer;   s1,s2,s3: longint;   a: array[1..mm,1..nn] of integer; begin   write('число строк и столбцов массива: '); read(m,n);   write('значение p: '); read(p);   writeln('*** сгенерированный массив ***');   randomize;   s1: =0; s2: =0; s3: =0; k1: =0; k2: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(101)-50;           write(a[i,j]: 4);           if a[i,j]> 30 then s1: =s1+a[i,j];           if odd(a[i,j]) then inc(k1)           else begin s2: =s2+a[i,j]; inc(k2) end;           if i+j=p then s3: =s3+a[i,j]           end;       writeln   end;   writeln('сумма элементов массива, больших 30: ',s1);   writeln('количество нечетных элементов массива: ',k1);   writeln('среднее арифметическое четных элементов массива: ',s2/k2);   writeln('сумма элементов массива c суммой индексов ',p,': ',s3) end. тестовое решение: число строк и столбцов массива: 8 10 значение p: 13 *** сгенерированный массив ***   -19 -39 -46  12  41  44 -44  21  11  25   13 -22    2  36  21 -42  34  15    5  25   -6  -3 -33 -29  47 -44  33    5  27  23   14  46  39 -35 -39  -1 -50  49    1  13   -4 -14  28  40 -34  48    0  -9 -36  12   -4 -20  35  45 -21  35  44  33  15  34   -40    2  44  38 -40  18 -11 -14  24 -28   -42  36 -37  42 -21 -43  19 -22 -45  49 сумма элементов массива, больших 30: 892 количество нечетных элементов массива: 40 среднее арифметическое четных элементов массива: 1.15 сумма элементов массива c суммой индексов 13: 56