Если минимальное натуральное четырёхзначное число увеличить в два раза, затем прибавить единицу, увеличенную в три раза, то получится год рождения skype-бесплатного программного обеспечения текстовой, голосовой и видеосвязи через интернет.

1000*2=2000 1*3=3 2000+3=2003

Uses crt; var a,b,c: integer;       p: real; begin        writeln('введите a'); readln(a);         writeln('введите b'); readln(b);         writeln('введите c'); readln(c);                   p : = (a+b+c)/2;         // √(p·(p - a)·(p - b)·(p - c))        writeln('площадь: ', sqrt(p*(p - a)*(p - b)*(p - ; end.

1) var a,b,s: integer; begin readln(a,b); s: =0; if (a< 0)and(b< 0) then   begin a: =-a; b: =-b; end; if a< 0 then for var i: =1 to b do s+=a else for var i: =1 to a do s+=b; writeln(s); end. пример: -7 15 -105 2) var n,s: integer; begin readln(n); s: =0; for var i: =1 to n do s+=i; writeln(s); end. пример: 100 5050 3) var a,b,s: integer; begin readln(a,b); s: =0; for var i: =a to b do s: =s+i*i; writeln(s); end. пример: 2 5 54 4) var a,b,n: integer; begin readln(a,b,n); for var i: =1 to n do write(random(b-a+1)+a,' '); end. пример: 10 20 5 11 12 14 14 18