1)16 бит=2 байта т.к 1 байт=8 бит
2)1024 КБ<2 МБ т.к 1 МБ=1024 КБ
3)2 ГБ=2048 МБ т.к 1 ГБ=1024 МБ
4)1 ТБ<2000 ГБ т.к 1 ТБ=1024 ГБ
Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
<span>end.
Тут всё понятно</span>
Var x,y,t:real;
begin
x:=12;
y:=x+3;
x:=2*y;
t:=x+y;
y:=t/y;
writeln('x = ',x,' y = ',y,' t = ',t);
end.
Результат:
x = 30 y = 3 t = 45
Var n,s,k:integer;
begin
// 1
n:=21000;
s:=n;
for k:=2 to 5 do
begin
n:=round(n*1.04);
s:=s+n;
end;
writeln('s = ',s);
// 2
n:=21000; k:=1;
while n<2*21000 do
begin
n:=round(n*1.04);
k:=k+1;
end;
writeln('k = ',k,' n = ',n);
end.
Результат:
s = 113745
k = 19 n = 42544
Var
i, j, n, max, min: integer;
a: array[1..10, 1..10] of integer;
begin
readln(n);
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(-50, 50);
// readln(a[i, j]);
if (i = 1) and (j = 1) then max := a[1, 1]; {инициализируем один раз а не каждый раз}
if a[i, j] > max then max := a[i, j];
write(a[i, j]:5);
end;
writeln();
end;
writeln('Maximum: ', max / 2);
min := a[n, n]; {любой элемент ниже побочной диагонали}
for i := 1 to n do
begin
for j := n - i + 2 to n do
begin
write(a[i, j]:5);
if min > a[i, j] then min := a[i, j];
end;
writeln();
end;
writeln('Minimum: ', min);
end.
