Задача 3: Асфальт Администрация одного небольшого китайского города планирует за следующий месяц построить несколько новых жилых кварталов. Внутри каждого квартала будут располагаться небольшие жилые массивы, между которыми необходимо проложить дороги высочайшего китайского качества. Ширина всех дорог одинакова и равна L. Каждая из сторон квадрата, представляющего собой жилой массив внутри квартала, равна k. Квартал имеет форму прямоугольника, в котором n × m жилых массивов. Для наглядности схема одного жилого квартала представлена на рисунке ниже.
Имея информацию о нескольких жилых кварталах, посчитайте, какую площадь необходимо покрыть асфальтом в каждом из них: n m L k 3 3 5 10 2 5 10 20 10 10 15 30 10 20 30 40 Например, для квартала размера 2 × 2 с шириной дороги L = 5 и размером жилого массива k = 30 ответ будет 625. ответ должен представлять собой четыре целых числа — по одному для каждого квартала. Каждое число записывайте в отдельной строке. Порядок записи чисел в ответе менять нельзя. Если вы не можете найти ответ для какой-то из строк таблицы, вместо этого ответа запишите любое целое число. Для выполнения расчетов вы можете использовать калькулятор или среду программирования.
1) const n=10; var a:array[1..n] of integer; i,min,s:integer; begin for i:=1 to n do begin a[i]:=random(81)+10; write(a[i]:4); end; writeln; min:=a[1]; for i:=1 to n do begin if a[i]<min then min:=a[i]; s:=s+a[i]; end; writeln('min = ',min); writeln('s = ',s); end.
Пример: 54 58 67 78 58 79 54 78 44 60 min = 44 s = 630
2) const n=9; m=6; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to m do a[i,j]:=i; for i:=1 to n do begin for j:=1 to m do write(a[i,j]); writeln; end; end.
const z = 30; // максимально число слов var s,w : string; n,p,i,j,l : integer; words : array [1..z] of string; kw : array [1..z] of integer; r : boolean; begin writeln ('введите строку'); readln (s); writeln ('укажите кол-во повторений'); readln (n); l := Length(s); p := 1; w := ''; for i := 1 to l do if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then w := w + s[i] else begin for j := 1 to p do if w = words[j] then begin kw[j] := kw[j] +1; r := true; end; if not r then begin p := p +1; words[p] := w; kw[p] := kw[p] +1; end; w := ''; r := false; end; for i := 1 to p do if kw[i] > n then writeln (words[i]); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
