Беспалова
?>

Написать программы Pascal по следующим условиям: 1) Дана строка. Заменить в ней все имена ЛЕНА на имя КАТЯ. 2) Преобразовать строку вида <Фамилия>; <Имя>; <Отчество>; в формат: Фамилия и инициалы 3) Дана строка. Группы символов, разделенных пробелом, назовем словами (лишних пробелов в строке нет Найти и вывести самое длинное слово, если их несколько, то первое из них. P.S. строку надо придумать.

Информатика

Ответы

argent
Var
 a:array[1..3,1..3] of integer;
 t:array[0..2] of boolean;
 k:array[0..2] of integer;
 i,j:integer;
 res:boolean;

begin
 for i := 1 to 3 do
 for j := 1 to 3 do
   read(a[i,j]);
 for i := 0 to 2 do
  begin
  k[i] := 0;
  t[i] := false;
  end;
 
 for i := 1 to 3 do
 for j := 1 to 3 do
   k[a[i,j]] := k[a[i,j]] + 1;
 
 for i := 1 to 3 do
   begin
   if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then
     t[a[i,1]] := true;
   if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then
     t[a[1,i]] := true;
   end;
 if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then
   t[a[2,2]] := true;
 if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then
   t[a[2,2]] := true;
 
 res := true;
 
 if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then
   res := false;
 
 if t[1] and ( t[2] or (k[1] = k[2]) ) then
   res := false;
 
 if res then
   writeln('YES')
 else
   writeln('NO')
end.
mashiga2632
1) выполним сложение 11101001 и 10011101 складывается как обычные десятичные цифры, но двоичная система состоит только из 1 и 0. 1+1=10 1+0=1 и 0+0=0. Сложим и получим 1 1 1 0 1 0 0 1
                                                        + 1 0 0 1 1 1 1 1
                                                        1 1 0 0 0 1 0 0 0 
И получим ответ: 110001000 в двоичной системе.
2) У нас одно значение в 8 ричной а другое в шестнадцати ричной системе исчисления переведем первое число в шестнадцатеричную.
Сначала лучше перевести число  с триад в двоичную а потом тетрайдем перевести в шестнадцатеричную. Три цифры(триада) в двоичной системе соответствуют одной цифре в восьмеричной системе и наоборот одно число из восьмеричной системы соответствует трем числам в двоичной системе. Четыре цифры(тетраде) в двоичной системе соответствует одной цифре в шестнадцатеричной системе и наоборот. 
3 0 6 переведем каждую цифру в двоичную систему, 3 в двоичной будет 011: 0 будет 000 и шесть будет 110 и получим 011000110 переведем в шестнадцатеричную систему 0110 будет 6 а 1100 будет 12. 12 в шестнадцатеричной системе нет его заменяет буква С. 0 пропускаем. получаем С6 и складываем С 6     
                 +7 0 F
                  7 D 5
Получаем ответ: 7D5 в шестнадцатеричной системе. 
Простите если слишком большое объяснение 
    

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программы Pascal по следующим условиям: 1) Дана строка. Заменить в ней все имена ЛЕНА на имя КАТЯ. 2) Преобразовать строку вида <Фамилия>; <Имя>; <Отчество>; в формат: Фамилия и инициалы 3) Дана строка. Группы символов, разделенных пробелом, назовем словами (лишних пробелов в строке нет Найти и вывести самое длинное слово, если их несколько, то первое из них. P.S. строку надо придумать.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kep92
e90969692976
omigunova39
olartamonov6
svetavancevich
Yuliya1693
Sergei-Gradus199
YelenaZOLTANOVICh105
Maksim Dmitrii1579
drappaeva68
Староческуль-Станиславовна
Чему равна основание 8-ричной системы счисления
minasov19
Lugovoi
Kuznetsova1639
Aleksei1968