32/8*60*60*24=345600 килобайт
<span>переводим в мегабайты получается 337,5 мб</span>
Задание1 :
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
<span>end.
Задание 2: </span>
Текстовые редакторы ! ! !
Количество вариантов считаем так:
На первого человечка можно надеть 3 шляпы,тогда на второго останутся 2 на выбор и 1 на последнего. Итого: 3*2*1=6 вариантов.
Теперь выпишем их по порядку
Обозначу для краткости Человечков буквами Ч1.Ч2,Ч3, а
шляпы A,B,C.
1)Ч1-A, Ч2-B, Ч3-C
2)Ч1-A, Ч2-C, Ч3-B
3)Ч1-B, Ч2-A, Ч3-C
4)Ч1-B, Ч2-C, Ч3-A
5)Ч1-C, Ч2-A, Ч3-B
6)Ч1-C, Ч2-B, Ч3-A
ГОТОВО ^_^
1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.