<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(20, -50, 50);
a.Println;
var b := a.Sum;
Println('Сумма элементов равна', b)
end.
Ответ:
m,n = map(int,input().split())
ss = ''
s0 = ''
for i in range(n-3):
ss += ' '
for i in range(n):
s0 += '0'
print(s0)
for i in range(m-2):
print('0', end='')
print(ss, end=' ')
print('0')
print(s0)
Объяснение:
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Распространение пиратского контента, не законный копирейт, различное нарушение авторских прав.
Ну например ЖИРНЫЙ ШРИФТ , <u>Текст с подчёркиванием, </u><u /> <em>наклонный текст </em>