<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
Ответ: 1-Г, 2-В, 3-Д, 4-А, 5-Б
Объяснения.
1. Со значением х=1 входим в цикл, который должен выполняться, пока х меньше 10. Но х в теле цикла не изменяется, поэтому цикл будет бесконечным.
2. Со значением х=1 входим в цикл, который должен выполняться, пока х равен 1. В теле цикла х наращивается на 1, поэтому цикл даже второй раз не будет выполняться.
3. Конструкция 0<x<10 недопустима синтаксически.
4. Со значением х=1 пытаемся войти в цикл. В заголовке указано, что цикл выполняется, пока х отрицательный. Следовательно, цикл не будет выполняться вообще.
5. Со значением х=0 входим в цикл, который должен выполняться, пока х не превысит 5. В теле цикла х наращивается на 1, т.е. х будет принимать значения 1,2,3,4,5,6 и при х=6 цикл завершится. Получается, что тело цикла выполнится 6 раз.
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA
//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 10 do
writeln('*');
end.