4 года назад

Заданы 2 слова a и b. Можно ли получить из слова a, вычеркиванием некоторого количества букв, слово b.Напишите на C++.

1 ответ:

0 0

Решение во вложении.
Например, результатом строк "testmessage" и "mstsge" будет "No", a "testmessage" и "stsge" будет "Yes".

Читайте также

1)Решить в паскале:Дан массив количества продаж телевизоров,получить количество телевизоров проданных за неделю (количество теле

Руслан77777 [51]

Program task2;
var a :array [1..10] of integer; i :integer;
begin
randomize; for i:= 1 to 10 do begin a[i]:= random(100); write(a[i],' '); end;
<span>end.</span>

0 0

4 года назад

Дан массив А(6). Найти сумму и количество положительных элементов, расположенных между максимальным и минимальным элементами. На

Григорий мороз [19]

===== PascalABC.NET =====

begin

var a := ReadArrReal(6);

var (i1, i2) := (a.IndexMax, a.IndexMin);

if i1 > i2 then

Swap(i1, i2);

a := a[i1 + 1:i2].Where(p -> p > 0).ToArray;

Print('Сумма', a.Length, 'элементов равна', a.Sum)

end.

0 0

2 года назад

Помогите решить алгоритм

Натальчик

760 или750
Но это не точно

0 0

4 года назад

Помогите пожалуйста,срочно.Хоть какой-то номер.

Grisha-2031 [7]

№4

а) 1111001₂= 1×2⁰+1×2³+ 1×2⁴+ 1×2⁵+1 ×2⁶ = 1+8+16+32+64=121₁₀

б) 1000110₂=1 ×2¹+1 ×2²+1× 2⁶=2+4+64=70

№3

136₁₀= 10001000₂

136:2=68 остаток 0

68:2= 34 остаток 0

34:2= 17 остаток 0

17:2= 8 остаток 1

8:2=4 остаток 0

4:2=2 остаток 0

2:2=1 остаток 0

1:2=0 остаток 1 (остатки записываются в ответ снизу в верх)

254₁₀= 11111110₂

254:2= 127 остаток 0

127:2=63 остаток 1

63:2=31 остаток 1

31:2= 15 остаток 1

15:2=7 остаток 1

7:2=3 остаток 1

3:2 =1 остаток 1

1:2=0 остаток 1

0 0

4 года назад

Решить в паскале 1.Определить , является ли число, введенное с клавиатуры, четным. 2.Если хотя бы одно из двух введенных пользов

faraon18 [207]

1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.

0 0

4 года назад