*** 1 *** // PascalABC.NET 3.1, сборка 1267 от 10.07.2016 begin var w:='КОМПЬЮТЕР'; Writeln(w[1:4]); Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]); Writeln(w[w.Length]+w[2::-1]) end.
Результат КОМ РЕТРО РОК
*** 2 *** // PascalABC.NET 3.1, сборка 1267 от 10.07.2016 begin var w:='КОМПЬЮТЕР'; var i:=ReadInteger('i='); Swap(w[i],w[w.Length]); Writeln(w) end.
Тестовое решение i= 5 КОМПРЮТЕЬ
*** 3 *** // PascalABC.NET 3.1, сборка 1267 от 10.07.2016 begin var w:='ПАР'; // исходное слово var k:=4; // константа сдвига шифра Цезаря var a:=''; for var i:=1 to w.Length do begin var p:=Pos(w[i],a); if p>0 then w[i]:=a[p+k] end; Writeln(w) end.
Дано: Страниц - 3 Строк - 25 Символов в строке - 60 Объём всего - 1125 байт Формулы: Нахождение общего количество символов: Страницы*Строки*Символов в строке=Общее количество символов Перевод из байт в биты: байты*8=биты Вычисление мощности алфавита: 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ) Решение: Вычислим общее количество символов: 3(страницы)*25(строки)*60(символы)=4500 символов Теперь вычислим число бит, выделяемое на хранение 1 символа: 1125 байт=9000 бит 9000(бит)/4500(символов)=2 бит Нахождение мощности алфавита: 2^2=4 символа ответ: 4
#include <vector>
#include <iostream>
using namespace std;
int main()
{
int n, k;
cin >> n;
vector <int> a(n);
vector <int> b;
for (int i = 0; i < n; i++) {
cin >> a[i];
}
for (int i = 0; i < n; i++) {
if (a[i] % 2 != 0) {
b.push_back(a[i]);
}
for (int i = 1; i < b.size() - 1; i++)
k *= b[i];
}
cout << k;
return 0;
}