program n;
Var
i,s: Integer;
BEGIN
s:=0;
For i:=-50 to 100 do
s:=s+i;
Writeln('Сумма чисел от -51 до 100 = ',s);
Readln
END.
Const n = 10;
var a:array[1..n]of integer;
min,imin,i,oldmin:integer;
begin
//Заполнение массива значениями в диапазоне
//от -100 до 100
//и одновременно находим минимальный элемент элемент
min:=100;
for i:=1 to n do begin
a[i]:=random(201)-100;
if a[i]<= min then
begin
min:=a[i];
imin:=i;//Запомним index минимального
end;
write(a[i]:5);
end;
writeln;
//В цикле сдвигаем элементы массива
//до индекса минимального включительно на
//одну позицию вправо
for i:=imin downto 2 do
a[i]:=a[i-1];
a[1]:=min;
//вывод элементов массива
for i:=1 to n do write(a[i]:5);
end.
var
x, f : real;
begin
write('введите x=');
readln(x);
if x < 3 then f := ln(abs(2-x))
else if (x >= 3) and (x < 5) then f := x/(x-2)
else f := sqrt(x-4);
writeln('f=', f);
end.
Var unitsCount,
tensCount,
hundredsCount,
number : integer;
begin
readln(number);
unitsCount := number mod 10;
tensCount := (number div 10) mod 10;
hundredsCount := number div 100;
writeln('Count of units: ', unitsCount);
writeln('Count of tens: ', tensCount);
writeln('Count of hundreds: ', hundredsCount);
writeln('Sum of digits: ', unitsCount + tensCount + hundredsCount);
writeln('Multiplication of digits: ', unitsCount * tensCount * hundredsCount);
<span>end.</span>