(смотрите рисунок)
AC=ADEC=3+1+1=5
ответ 2) 5
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
<span><span /></span>
<span><span><span><span>
Дни
</span><span>
Высота (см)
</span></span><span><span>
Первый
</span><span>
- 180
</span></span><span><span>Второй
- </span><span> 182
</span></span><span><span>
Третий
</span><span>
- 184
</span></span><span><span>
Четвертый
</span><span>
- 186
</span></span><span><span>
Пятый
</span><span>
- 188
</span></span><span><span>
Шестой
</span><span>
- 190
</span></span><span><span>
Седьмой </span><span>- 192
</span></span></span></span>
Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления.
Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2).
Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No"
For i=5 downto 1 do
If i Mod 2 = 1 then
a:= a+n div (10^(i-1)) mod 10
Else
B=B+ div (10^(i-1)) mod 10;
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
