2.
var x:real;
begin
read (x);
if (x>0) then writeln (x-2);
if (x=0) then writeln (10);
if (x<0) then writeln (x*x*x);
end.
<span>11001 -----------------------------------</span>
Что типа должно получиться: S=3150;
program Summ;
uses Crt;
var S, i, a, n: integer;
begin
ClrScr; {Очистка экрана}
S:=0;
a:=5;
n:=(200-100) div a; {Количество слагаемых}
for i:=0 to n do
s:=S+(100+i*5);
WriteLn (' S=',s); {Вывод результата}
ReadLn;
end.
П0 <-> П1 1 - П1 2 / [x] ИП0 1 - 2 / [x] ИП1 - |x| С/П
Пример: расстояние от дома 1 до дома 5 равно 2.