Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
Var alfa, a1, c, a, g, m, cs : real;
begin
alfa:=30;
c:=13;
a:=-18;
g:=4+(c-a)*(c-a);
a1:=3.14*alfa/180;
cs:=cos(a1-a1*a1);
m:=9.8*(c-a)*(a-c)*cs*cs;
writeln('g = ',g,' m = ',m);
end.
Результат:
g = 965 m = -8843.80431485503
Число букв
Число гласных
Число согласных
То же слово, но записанное в обратном порядке
Порядковый номер первой буквы в русском алфавите
3*3+3/3=4
3+3/3+3=5
3+3+3-3=6
3/3+3+3=7
-
3*3-3+3=9
-
1+2/3=1
1*2+3-4=1
1+2*3-4/5=1
1*2+3-4+5/6=1
1+2*3-4/5+6/7=1
1*2+3-4+5-6-7+8=1<span>
</span>