const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.
var a, b, c: real;
begin
read(a, b, c);
writeln('V = ', a * b * c);
writeln('S = ', 2 * (a * b + a * c + b * c));
end.
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
На 4:
var i,x,oc:integer;s:real;
begin
readln(x);
s:=0;
for i:=1 to x do
begin
oc:=random(5)+1;
s:=s+oc;
end;
writeln(s/x);
end.
На 5:
var i,s,ch,min:integer;
begin
s:=3;
for i:=3 to 30 do
begin
s:=s+2;
end;
ch:=s div 60;
min:=s-ch*60;
writeln('Часов ',ch,' минут ',min);
end.