Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
1 потомушто больше кв.. нет
Chertovo ogranichenie na min kolvo simvolov
max(b2:d2)
1)6.9877929 КБ
2)77594624 КБ
3)256 КБ
4)31457280
5)263168
6)628736
7)684
8)409600
9)9437184
10)2,5
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.