По второму условию от кода буквы С отличается в 3 позициях -> для T
кодовое слово 10110
var
masiv:array[-10000..10000] of integer;
begin
for var i := -10000 to 10000 do
begin
randomize;
masiv[i] := random(-10000, 10000);
end;
end.
Точно уверен
uses GraphABC;
begin
SetWindowSize(400, 400);
SetWindowTitle('Синий прямоугольник с фиолетовой штриховкой');
SetBrushStyle(bsHatch);
SetBrushColor(clMagenta);
SetBrushHatch(bhVertical);
FillRectangle(140,80,320,200);
SetPenColor(clBlue);
DrawRectangle(140,80,320,200);
<span>end.
</span>
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end;
var i,k :integer;begin write('Введите k: '); readln(k);
for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
1. Источник информации-царица
Царь- приемник
Информационный канал - гонец
Помехи - ткачика с поварихой, с сватью бабаю Бабарихой
2. Елесей спрашивает у солнца,месяца и ветра.
Мачеха у зеркальца.
Салтана информировали купцы.
Гвидона Царевна -лебедь.
Дадону все сообщал Золотой петушок