1) 174(8)=Х(10)
2)123(5)=Х(10)
3)1101,1(2)=Х(10)
4)23,2(8)=Х(10)
5)2А,4(16)=Х(10)
6)56,875(10)=Х(2)
7)324,015625(10)=Х(8)
8)765,125(10)=Х(16)
Дайте полный ответ,пожалуйста,с объяснениями
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
<u>Пример</u>
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
Const
s='информатика';
var
s1:string;
begin
s1:=s; Delete(s1,1,2); Delete(s1,7,3);
Writeln(s1);
s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
Writeln(s1)
end.