Var a,s,p:integer;
begin
p:=1;
read(a);
if(a=0) then p:=0;
while(a<>0)do begin
s+=a;
p*=a;
read(a); end;
writeln(s, ' ', p);
<span>end.</span>
Составим уравнение это кусочной функции.
По непонятной мне причине, местный редактор формул внутри себя корректно отображает формулу, а при попытке сохранения её в ответ все рушится. Посему формула отправлена во вложение.
var
x, y: real;
begin
Write('Введите х: ');Readln(x);
if x <= -9 then y := 0
else if x < -6 then y := -sqrt(9 - sqr(x + 6))
else if x <= -3 then y := x + 3
else if x < 0 then y := sqrt(9 - sqr(x))
else if x <= 3 then y := 3 - x
else if x < 9 then y := (x - 3) / 2
else y := 3;
Writeln('y=', y)
end.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Из десятичной в 16-ую
a) 201 б) 258 в) 7DA
Из десятичной в 8-ую
а) 1001 б) 1130 в) 3732
Порядок перемещения:
0. 0 (начальное положение)
1. 0+3=3
2. 3-2=1 - нечетное
3. 1+4=4
4. 4+3=7
5. 7-2=5 - нечетное
6. 5+3=8
7. 8-2=6
8. 6-2=4 - четное
9. Закрасить
Итого закрашена 1 точка, ответ: 1.