В недавнем длина имени файла или папки была ограничена восемью символами с расширением не более трех символов. Это правило было известно как Конвенция 8.3. Иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. В зависимости от операционной системы, если в названии файла встречаются пробелы, вы Должны заключить название в кавычки, чтобы оно читалось как единое имя. Если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо Program Files. Примеры переименования папок, названия которых начинаются одинаково, приведены в 2.2.
Imports System Module MainModule Sub Main() Dim a, b, h, S As Double Console.Write("a = ") a = Console.ReadLine() Console.Write("b = ") b = Console.ReadLine() Console.Write("h = ") h = Console.ReadLine() S = (a + b) / 2 * h Console.Write("S = ") Console.WriteLine(S) Console.ReadKey End Sub End Module
Задача 2:
Imports System Module MainModule Sub Main() Dim x, y As Double Console.Write("x = ") x = Console.ReadLine() Console.Write("y = ") y = Console.ReadLine() If (x < 0) And (y < 0) Then x = -x y = -y Else If (x < 0) Or (y < 0) Then x += 0.5 y += 0.5 Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then x /= 10 y /= 10 End If Console.Write("x = ") Console.WriteLine(x) Console.Write("y = ") Console.WriteLine(y) Console.ReadKey End Sub End Module
3
Объяснение:
1) 221108
2=Б 2= Б 1 = А 10=И 8 = Ж
ББАИЖ
22=Ф 1 = А 10= И 8 = Ж
ФАИЖ
не подходит
2) 201128
20 = Т 1 = А 1 = А 2 = Б 8 = Ж
ТААБЖ
20 = Т 11 = Й 2 = Б 8 = Ж
ТЙЖ
не подходит
3) 201108
20=Т 1 = А 10 = И 8 = Ж
только ед вар
4) 211018
2=Б 1= А 10=И 18=Р
БАИР
21=У 10= И 1 = А 8= Ж
УИАЖ