Var s : String;
Begin
s:='конкурс';
Writeln(s);
Writeln(s[6]+s[5]+s[3]+s[2]);
Writeln(copy(s,4,2)+s[7]+s[2]+s[1]);
end.
var
s,p:int64;
i,kol,m:integer;
a:array of integer;
begin
readln(kol);
s:=0;
p:=0;
m:=0;
setlength(a,kol);
for i := 1 to kol do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
m:=s div kol;
writeln('Сумма ',s);
writeln('Произведение',p);
writeln('Среднее значение',m);
end.
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
256000 * 28 = 7168000 бит = 896000 байт = 875 Кбайт
Ответ: 875
Ночь-Дочь-Доль-Даль-Дань-День