Var
s:string;
i,n1,n2:integer;
begin
Write('Введите строку: '); Readln(s);
n1:=0; n2:=0;
for i:=1 to Length(s) do
case s[i] of
'*':Inc(n1);
'!':Inc(n2)
end;
Writeln('Найдено *: ',n1,', !: ',n2)
end.
<em><u>Тестовое решение:</u></em>
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4
Ответ:
всё правильно сделал,
Объяснение:
в таблице все указано верно
Const
N = 30;
Var
a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i := 1 to N do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
MaxEv := 0;
MaxOdd := 0;
For I := 1 to N do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}
MaxEv := a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}
Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);
end.
ГБАВАВ, закодируем каждую букву двоичным кодом, который дан в задании, получим:
0111101010010100.
Чтобы представить в 16-тиричной системе счисления, поделим код на тетрады ( по 4 числа с конца ):
0111 1010 1001 0100
По таблице эквивалентности заменим каждое двоичное число шестнадцатиричным кодом:
7 А 9 4
Ответ: 7A94 в 16-ти ричной системе счисления.
Задача б. перевезти зайца.потом привезти волка и забрать зайца.перевезти лису и потом зайца))