3,7 - документ
1,4-устройство
2,6-папка
5,8-ярлык
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
Ответ:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Global
{
class Program
{
static void Main(string[] args)
{
string first_x = Console.ReadLine();
int first_input = Convert.ToInt16(first_x);
int y = 1 - first_input;
y = y + 3 * Get_x();
y = y - 4 * Get_x();
Console.Write(y);
Console.Read();
}
static int Get_x()
{
string input = Console.ReadLine();
int x = Convert.ToInt16(input);
return x;
}
}
}
Объяснение: