Решить по информатике! 1.дана символьная строка. определить, есть ли в строке слово из трех букв. 2.дана строка. определить, есть ли в ней буква s. других данных нет. только не пишите решай сама! )

👇

Ответ:

hdhdhhxhxu

04.04.2023

Var s:string;
i,k:integer;
b:boolean;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]<>' ') then begin inc(k);
if k=3 then b:=true; end
else k:=0;
writeln(b);
end.

var i:integer;
s:string;
b:boolean;
s1:char;
begin
readln(s);
readln(s1);
for i:=1 to length(s) do
if s[i]=s1 then b:=true;
writeln(b);
end.

4,8(88 оценок)

Открыть все ответы

Ответ:

kolomietslina

04.04.2023

Const
   N = 7; // количество наименований товаров
Var
   A:array[1..N,1..3] of integer;
   i,k,S:integer;
Begin
For i:= 1 to N do
    Read(A[i,1],A[i,2],A[i,3]);
k:=0;
For i:= N downto 1 do
    if A[i,2] = 0 then k:=i;
if k > 0 then
   Begin
   Write('00 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 0 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 1 then k:=i;
if k > 0 then
   Begin
   Write('01 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 1 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 10 then k:=i;
if k > 0 then
   Begin
   Write('10 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 10 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 11 then k:=i;
if k > 0 then
   Begin
   Write('11 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 11 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
End.

Пример работы программы:

17 1 2
3 0 5
7 1 4
8 11 9
95 0 3
31 10 44
5 1 6
00 - 15+285=300
01 - 34+28+30=92
10 - 1364
11 - 72

4,7(39 оценок)

Ответ:

sergeevan73

04.04.2023

9877

Объяснение:

Ну давайте вместе решим. Что такое 8? Это 2 в 3 степени. Тогда что такое 8^4024? Это (2^3)^4024 или 2^12072

4^1605 аналогично 2^3210.

Ну и 2^1024

126 в бинарной системе это 0111 1110

Теперь попробуем это вместе сложить.

Если призадуматься, то 2^N это значит в бинарной записи на N-той позиции стоит единица.

Значит 2^12072 это 1 и 12071 нулей

Далее у нас отнимается 2^3210. В оригинальном числе на этом позиции 0, значит нам следует занять числа и в итоге получается что у нас с 12070 позиции по 3210 будет стоять единицы.

Далее добавляется одна единица на 1024ой позиции.

На данный момент у нас 8861 единиц.

Чтобы отнять 126 нам надо будет срезать одну единицу на 1024ой позиции чтобы занять в меньшие биты. Однако, с 1023 по 1 позицию у нас будут стоять единицы.

8861 - 1 + 1023 = 9883

Однако 126 имел единицы в количестве 6 штук.

9883 - 6 = 9877

ответ 9877

4,4(13 оценок)

Это интересно:

Взаимоотношения

21.11.2020

Страх перед длинными словами: как правильно произносить сложные термины?...

Семейная-жизнь

27.01.2022

Как подростку справиться с потерей отца: советы от психологов...