1) 8 х 4 = 32(м) - провода на первую клумбу.
2) (8 + 3) х 2 = 22(м) - провода на вторую клумбу.
3) 4 х 4 = 16(м) - провода на третью клумбу.
4) (8 + 4) х 2 = 24(м) - провода на четвертую клумбу.
5) 32 + 22 + 16 + 24 = 94(м) - всего.
Ответ: 94 метра.
Осязание или тактильное чувство- способность человека ощущать прикосновения, воспринимать что-либо рецепторами, расположенными в коже, мышцах...
Значит когда мы гладим кошку мы ощущаем прикосновение, то какая она на ощупь.
Это осязательная информация.
var m,r:real;
Begin
<span>Writeln('Вычисление расстояния между населенными пунктами.') ;</span>
<span>writeln('ведите исходные данные:');</span>
<span>writeln('Масштаб карты (количество километров в одном сантиметре) </span>---> ');
read(m);
<span>writeln('Расстояние между двумя точками, изображающими населенные пункты (см) </span>---> ');
read(r);
<span>writeln('Расстояние между населенными пунктами ', m*r,' км.');
</span>
End.
Значения переменных по строкам в результате выполнения программы
6
-3
30
15
Ответ: 15
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('Количество слов в массиве:');
var a:=ReadArrString('Введите слова, каждое с новой строки:',n);
var s:=a.Select(w->(w,w.Length));
var lm:=s.Max(t->t[1]);
s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('')
.Where(c->c in 'AEIOUY').Distinct.Println
end.
