// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(15,10,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Сумма элементов 10-й строки: ',a.Row(11).Sum) end.
1) var i,d,q:integer; begin d:=1; for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же} d:=d+q; writeln(q,' ',d); end.
2) var i,d,q:integer; begin d:=1; for q:=4 downto 1 do d:=d+q; writeln(q,' ',d); end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей) var i,d,q:integer; begin d:=1; q:=1; d:=d+q; writeln(q,' ',d); end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии) А так как нет изменений то и переработать нельзя в цикл for
2) N = 80 Ic=140 бит Найти К Решение: N =2(в степени I) 80 = 2*I I = 7 бит Ic = K* I => K =140 : 7 =20 символов 3) K = 100*20*30 N =80 Найти: Ic Решение: По той же формуле вычисляем размер 1 символа => I = 7 бит Ic = K*I Ic =100*20*30*7 = 420 000 бит =52500 байт 4) Ic = 4Kбайта K = 2048 Найти: N Решение: 4Кбайта = 4 * 2(в 13 степени) бит 2048 = 2(в 11 степени) . Найдем вес 1 символа : I= Ic / K I = 4 * 4 = 16(сокращаешь степени) N = 2*I дальше подставляешь под формулу)
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(15,10,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма элементов 10-й строки: ',a.Row(11).Sum)
end.