Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
Непонятная - какой небуть очень длинный и замудрённый пример по алгебре та и ещё на районной олимпиаде (не усваимая)!!!
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Кодировка какая?
Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта
Строка: 60 символов по 16 бит = 960 бит
60 символов по 2 байта = 120 байт
Страница: 40 строк по 960 бит = 38400 бит
40 строк по 120 байт 4800 байт
Учебник: 288 страниц по 38400 бит = 11059200 бит
288 страниц по 4800 байт = 1382400 байт
Ответ: 11059200 бит, 1382400 байт
___________________________________________
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт
Строка: 60 символов по 8 бит = 480 бит
60 символов по 1 байту = 60 байт
Страница: 40 строк по 480 бит = 19200 бит
40 строк по 60 байт = 2400 байт
Учебник: 288 страниц по 19200 бит = 5529600 бит
288 страниц по 2400 байт = 691200 байт
Ответ: 5529600 бит, 691200 байт
Наверное алгоритм но я точно не знаю