Arina17122002
28.09.2020 01:41

Решить на паскаль 2. ввести четыре слова на языке. вывести на экран все глухие согласные буквы которые не входят хотя бы в одно слово. и 1 !

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ksarbinaz
17.02.2023 19:30

import copy – импортируется модуль copy

x = {'one': 1, 'two_three': [2, 3]} – создается словарь с ключами one и two_three и значениями 1 и [2, 3]

y = copy.copy(x) – y указывает на поверхностную копию x. Поверхностная копия – копия, у которой такие же ключи и значения, что и в оригинале. В отличии от copy.deepcopy – глубокого копирования – значения ссылаются на те же объекты, что и оригинал

y['one'] = 'I' – ключу one нового объекта присваивается значение 'I'. В старом объекте ничего не меняется

y['two_three'][0] = 'II' – в значении по ключу two_three нового объекта берется первый элемент (нумерация начинается с нуля) и заменяется на 'II'. Поскольку в старом объекте по этому ключу находится тот же самый объект, то при печати и там список будет изменен

y['two_three'][1] = 'III' – аналогично со вторым элементом списка

print(x) – выводится содержимое x, то есть {'one': 1, 'two_three': ['II', 'III']}

print(y) – выводится содержимое y, то есть {'one': 'I', 'two_three': ['II', 'III']}

На экран будут выведены две строки, написанные выше

0,0(0 оценок)
Ответ:
Roman22020
19.03.2020 09:45

program n_1;

uses crt;

var

 n: longint;

 k: integer;

function Sym(n: integer): char;

begin

 case n of

   0..9: Sym := chr(48 + n);  

   10..36: Sym := chr(55 + n);  

 end;

end;

function funct(n: longint; k: integer): string;

var

 st: string;

begin

 st := '';

 if n = 0 then st := '0' else

 begin

   while n >= 1 do

   begin

     st := Sym(n mod k) + st;

     n := n div k;

   end;

 end;

 DecToX := st;

end;

begin

 readln(n);

 repeat

   readln(k);

 until (2 <= k) and (k <= 36);

 writeln(funct(n, k));

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота