Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.
Такое изображение займет
57 * 57 = 3249 бита
3249 / 8 = 406,125 байта
4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт
Для упрощения работы пользователя в состав современных операционных систем, и в частности в состав Windows, входят программные модули, создающие графический пользовательский интерфейс. В операционных системах с графическим интерфейсом пользователь может вводить команды посредством мыши, тогда как в режиме командной строки необходимо вводить команды с помощью клавиатуры.
Графический интерфейс позволяет осуществлять взаимодействие человека с компьютером в форме диалога с использованием окон, меню и элементов управления (диалоговых панелей, кнопок и так далее).
Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub