7%7% и все а мама9$9$ это чертеж
Ответ:
program SqrtX;
const
XBEG = 4.5;
XEND = 11.0;
DELTA = 0.5;
var
x: Double;
begin
x := XBEG;
while x <= XEND do begin
WriteLn (x :4 :1, Sqrt (x) :20 :15);
x := x + DELTA;
end;
ReadLn;
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
Какой язык программирования?PASCAL ABC? C++? JAVA?
Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub