Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.
Решу только первую задачу.
const k=?; {Вместо "?" подставить любое значение k}
Var x,i,s:integer;
Begin
write('x=');
readln(x);
s:=1;
for i:=1 to k do
begin
s:=s*(x mod 10);
x:=x div 10;
end;
writeln('s=',s);
End.
Чтобы перевести в 2, 16, 8 системы нужно делить в столбик до наименьшего ответа и остатка, затем записываем последний ответ и остатки справа на лево. а в десятичную на фото второй пример, в конце посчитать
Uses crt;var a,m:array[1..99] of integer; i,j,n,b:integer;beginclrscr;randomize;writeln('vvedite N');readln(n);for i:=1 to n do begina[i]:=random(50);write(a[i]:3);end;
for i:=1 to n-1 dofor j:=i+1 to n doif (a[j]>a[i]) then beginb:=a[i];a[i]:=a[j];a[j]:=b;end;writeln;writeln('====================');for i:=1 to n dowrite(a[i]:3);readln;end.