На Visual Basic Sub Roma Dim R As String, N As Long, k As Integer, i As Integer R = InputBox ("Vvedite Rimskoe chislo") N = 0 : k = 0 i = 1 Do k = InStr$(R, i, "M") If k > 0 Then N = N + 1000 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "CM") If k > 0 Then N = N - 100 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "D") If k > 0 Then N = N + 500 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "CD") If k > 0 Then N = N - 100 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "C") If k > 0 Then If (Mid$(R, k+1, 1) <> "D") And (Mid$(R, k+1, 1) <> "M") Then N = N + 100 End If End If Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "XC") If k > 0 Then N = N - 10 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "L") If k > 0 Then N = N + 50 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "XL") If k > 0 Then N = N - 10 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "X") If k > 0 Then If (Mid$(R, k+1, 1) <> "C") And (Mid$(R, k+1, 1) <> "L") Then N = N + 10 End If End If Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "IX") If k > 0 Then N = N - 1 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "V") If k > 0 Then N = N + 5 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "IV") If k > 0 Then N = N - 1 Loop While ((k > 0) And (i <= Len(R))) i = 1 Do k = InStr$(R, i, "I") If k > 0 Then If (Mid$(R, k+1, 1) <> "X") And (Mid$(R, k+1, 1) <> "V") Then N = N + 1 End If End If Loop While ((k > 0) And (i <= Len(R))) MsgBox (N) End Sub
1. var a : integer; begin read (a); writeln (sqrt (a) * 4); end.
2. var x : integer; begin read (x); if (x mod 2 = 0) then writeln ('Четное') else writeln ('Нечетное'); if (x mod 3 = 0) then writeln ('Делится на 3') else writeln ('Не делится на 3'); end.
#include<iostream>//стандартный поток ввода вывода c++#include<clocale>//нужна чтобы был русский язык#include<cmath>//нужна чтобы были функции из матем.#include<conio.h>//нужна чтобы не закрывалась консоль using namespace std;//пространство времен std int main(){ setlocale(LC_ALL,"");//Инициализация русского float a = 1.1; //инициализация переменной a = значение float b = 0.004;//инициализация переменной b = значение float x = 0.2;//инициализация переменной x = значение float y,z; //инициализация переменных yz cout<<"a = "<<a<<"\nb = "<<b<<"\nx = "<<x<<endl;//\n - переход на новую строку , как и endl; y = (pow(sin(pow((x*x+a),2)),3))-(sqrt(x/b)); //pow(число, степень) - возведение в степень z = (x*x)/a+pow(cos(x+b),3); cout<<"\ny = "<<y<<endl; cout<<"z = "<<z<<endl; _getch();}