Миша при решении задачи нарисовал поезд в виде прямоугольника. Какая это форма представления информации?
1) схема
2) рисунок
3) чертёж

1. внимательно читаете . вникаете в смысл. выясняете, все ли термины  известны и понятны. детально представляете себе ситуацию или как идет прощесс, описанный в .

2. записываете данные.

3. записываете, что нужно найти.

4. вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в , с тем параметром, который нужно найти.

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

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

7. проверка. решаем обратную : считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". если результат вычислений совпадает в данными, значит решена верно. если нет - ищите ошибку.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

var a,res: integer;

begin

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

readln(a);

res: =sqr(a);

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

readln;

end.

1)

var a: array[1..20] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('удалили элементы из одинаковых цифр включая однозначные'); i : = 1; k : = 10; while i < = k do begin if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then begin if i = k then k : = k - 1 else begin for j : = i to k - 1 do a[j] : = a[j + 1]; k : = k - 1; end; end else i : = i + 1; end; for i : = 1 to k do write(a[i]: 4); end.

2)

var a: array[1..20] of integer; i, j, k,n: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('введите k(не должно содержать 1)='); readln(k); writeln('вставляем k перед всеми элементами где есть цифра 1'); i : = 1; n : = 10; while i < = n do begin if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then begin for j: =n+1 downto i+1 do a[j]: =a[j-1]; a[i]: =k; n: =n+1; i: =i+1; end; i : = i + 1; end; for i : = 1 to n do write(a[i]: 4); end.

3)

var a: array[1..10] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('меняем местами три первых и три последних элемента'); for i: =1 to 3 do begin k: =a[i]; a[i]: =a[i+7]; a[i+7]: =k; end; for i : = 1 to 10 do write(a[i]: 4); end.