Спо программированию. в заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "". слова отделены друг от друга пробелом.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadlnString('->').ToWords; var k:=0; for var i:=0 to a.Length-1 do if a[i].Length=4 then begin k+=1; if k.IsEven then a[i]:='' end; Writeln('Четырехбуквенных слов: ',k); var s:=a.JoinIntoString(' '); Writeln(s) end.
Пример -> Мама мыла раму Тамара ела кашу а Даша играла в мяч Четырехбуквенных слов: 5 Мама раму Тамара ела а Даша играла в мяч
lika080489
19.11.2021
Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры): 0101 1101 1000 1010 1010 1111 0010 1010 Если слева недостаточно цифр до тетрады, то слева добавляем нули. Далее переводим тетрады в шестнадцатеричный код с таблицы: 0000 => 0 0001 => 1 0010 => 2 0011 => 3 0100 => 4 0101 => 5 0110 => 6 0111 => 7 1000 => 8 1001 => 9 1010 => A 1011 => B 1100 => C 1101 => D 1110 => E 1111 => F 0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A
Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры: 001 011 101 100 010 101 010 111 100 101 010 И также если не хватает до 3-ех цифр, то слева добавляем нули. Затем переводим по аналогичной таблице: 000 => 0 001 => 1 010 => 2 011 => 3 100 => 4 101 => 5 110 => 6 111 => 7 001 011 101 100 010 101 010 111 100 101 010 = 13542527452
if(S != 0) cout << "В последовательности N ноль встречается " << S << " раз." << endl; else cout << "В последовательности N ноль не встречается." << endl;
_getch(); return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Спо программированию. в заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "". слова отделены друг от друга пробелом.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('->').ToWords;
var k:=0;
for var i:=0 to a.Length-1 do
if a[i].Length=4 then begin
k+=1;
if k.IsEven then a[i]:=''
end;
Writeln('Четырехбуквенных слов: ',k);
var s:=a.JoinIntoString(' ');
Writeln(s)
end.
Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама раму Тамара ела а Даша играла в мяч