//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, -10, 10);
println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
if a[i, a.GetLowerBound(1)] < 0 then begin
var s1 := 0;
var s2 := 0;
var s3 := 0;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if i < j then s1 += a[i, j]
else if i = j then s2 += a[i, j]
else if i > j then s3 += a[i, j];
writeln(i + ': ' + s1 + ', ' + s2 + ', ' + s3);
end;
end.
вес 1 символа – 8 бит.
Единице измерения 8 бит присвоили название 1 байт:
1 байт = 8 бит.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.
2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.
5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
2. Удобнее принсети флеш-накопитель (1). Привод для считывания информации с CD-диска (2) может отсутствовать, оперативная память (3) не предназначена для постоянного хранения информации. Записать на жесткий диск (4) можно, но для переноса информации он не предназначен.
3. 4 Кб = 4 * 1024 = 4096 байт. Следовательно, подойдет документ в формате *.pdf = 4000 байт.
