Ответ:
1) (17-5) :2 =6(см) одна сторона
2) 6+5=11 (см) другая сторона
3) (6+11)*2=34 (см) периметр
4) 6*11=66 (кв см) площадь
Ответ:34см, 66 кв мм
Объяснение:
uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.
I)
1) Выбираем двух персонажей
2) Создаем скрипт для каждого персонажа
3) Для того, чтобы они шли друг к другу, поменять направление для одного (в левую сторону). Изменить стиль вращения.