Даны тексты пяти пословиц(поговорок), закодированные в некоторых кодировках. Представлены коды символов ( шестнадцатеричные). Требуется угадать кодировку и прочитать пословицу(поговорку) 1. 04 1B 04 38 04 45 04 30 00 20 04 31 04 35 04 34 04 30 00 20 04 3D 04 30 04 47 04 30 04 3B 04 3E
2. 04 27 04 35 04 3C 00 20 04 31 04 3E 04 33 04 30 04 42 04 4B 00 20 00 2D 00 20 04 42 04 35 04 3C 00 20 04 38 00 20 04 40 04 30 04 34 04 4B
3. 93 20 E1 A5 AC A8 20 AD EF AD A5 AA 20 A4 A8 E2 EF 20 A1 A5 A7 20 A3 AB A0 A7 E3
4. F4 F1 F6 E5 EC EF 20 F7 20 F5 FE E5 EE E9 E9 20 2D 20 EC E5 E7 EB EF 20 F7 20 E2 EF E0
5. D0 A7 D1 82 D0 BE 20 D0 B2 20 D0 BB D0 BE D0 B1 2C 20 D1 87 D1 82 D0 BE 20 D0 BF D0 BE 20 D0 BB D0 B1 D1 83
В ответе указать каждый раз номер задания, кодировку и текст пословицы(поговорки)
Подсказка: при кодировании иcпользовались только кодировки из набора DOS866, Windows-1251, KOI8R, UNICODE, UTF8.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение: