Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Пусть x - количество двухкомнатных квартир, тогда вероятность того, что кто-то живет в двухкомнатной квартире = x/32.
По формуле Шеннона I = log(2)1/p = log(2)[1/x/32] = log(2)[32/x] = 2
32/x = 2^2; x = 32/4 = 8
Ответ: в доме 8 двухкомнатных квартир.