640*272*1бит = 174080 бит / 8 = 21760 байт / 1024 = 21,25 Кб
А:=3
b:=5
c:=9
3mod3=0 (делится нацело), значит v:=1*3=3; t:=1; u:=3
5mod3=0 (не делится нацело) - не верно, действия не выполняются
9mod3=0 (делится нацело), значит v:=3*9=27; t:=2; u:=3+9=12
v=27 t=2 u=12
Первая программа
var x,y:real;
begin
readln(x);
y:=sqrt(x);
writeln(y);
end.
Вторая программа
const n=4;
var i,c:integer;
s,p:real;
a:array[1..n] of real;
begin
c:=1;
writeln('Введите стороны 4-ех угольника: ');
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do begin
if(a[i] = a[i+1]) then
c+=1;
end;
if(c = 4) then begin
s:=sqr(a[1]);
p:=4*a[1];
writeln('Площадь квадрата: ',s,'. Периметр квадрата: ',p);
end
else begin
s:=a[1]*a[2];
p:=2*(a[1]+a[2]);
writeln('Площадь прямоугольника: ',s,'. Периметр прямоугольника: ',p);
end;
end.
1. От 2^8 + 1 до 2^9 = от 257 до 512
2. В случае, если шары не пронумерованы, 4 первых бита на синие шары, затем 3 - на зелёные, далее 2 - на жёлтые и 1 - на красные. Если же пронумерованы, то log2 20 = 5 бит.