Изучая кодировки, я понялне, что недостаточноя хорошо понимаю системы счислений. Тем не менее часто использовал 2-, 8-, 10-, 16-ю системы, переводил одну в в другую, но делалось всё на "автомате".
var s : string[50]; i, j, k : word; f : boolean; function isSpace(ch : char) : boolean; begin isSpace := false; if ch = ' ' then isSpace := true; end; begin f := false; repeat j := 0; writeln('введите строку, состоящую из 2 слов'); readln(s); for i := 1 to length(s) do if isSpace(s[i]) then begin inc(j); k := i; end; if j =1 then f := true; until f; write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); end. недавно такую писала :)
VB. Dim CountA As Integer Dim CountB As Integer Dim x As Integer Dim a As Integer Dim b As Integer a = InputBox("Введите а") b = InputBox("Введите b") For x = 1 To Len(CStr(a)) If CInt(Mid(CStr(a), x, 1)) Mod 2 = 0 Then CountA += 1 Next For x = 1 To Len(CStr(b)) If CInt(Mid(CStr(b), x, 1)) Mod 2 = 0 Then CountB += 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next If CountA = CountB Then MsgBox("Количество четных цифр в двух числах равно") If CountA > CountB Then MsgBox("В первом числе количество четных цифр больше") Else MsgBox("Во втором числе количество четных цифр больше")
Изучая кодировки, я понялне, что недостаточноя хорошо понимаю системы счислений. Тем не менее часто использовал 2-, 8-, 10-, 16-ю системы, переводил одну в в другую, но делалось всё на "автомате".