Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
101110111(2) = 1∙2^8+0∙2^7+1∙2^6+1∙2^5+1∙2^4+0∙2^3+1∙2^2+1∙2^1+1∙2^0 = 256+0+64+32+16+0+4+2+1 = 375(10)
2347(8) = 2∙8^3+3∙8^2+4∙8^1+7∙8^0 = 1024+192+32+7 = 1255(10)
помог бы с остальными но времени нет
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419
Ответ: Файл это структура данных, которая распознается компьютером как одно целое. Название файлов и папок не должны содержать символы / \ | : * ? “ < > и превышать 255 символов.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7