А) integer так как 2 в последнем слагаемом сократится
б) однозначно real, так как X в переменных описан явно как real
в) real (все переменные описаны как real)
г) real (все из-за корня квадратного)
Мне такого не давали решать, и я точно не знаю как это делается, сделал как мог...
Х - только паскаль,
y - паскаль+бейсик,
z - только бейсик.
x+y+z = 35,
x+y=25,
y+z=22.
И решаем эту системку.
Вычтем из первого третье
x=35-22=13
И это ответ :)
Только на паскале программируют 13 человек.
Программа приложена файлом для 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