Во На какие основные блоки можно разделить программу на языке Pascal? Варианты ответов Блок используемых данных Заголовок Название Блок операторов Во Какой из основных блоков программы следует первым? Варианты ответов Блок используемых данных Раздел описания переменных Заголовок Блок операторов Во Какая из записей оператора присваивания на языке Pascal правильная? Варианты ответов <переменная>=<значение>; <переменная>:=<значение>; <переменная>:<значение>; <значение>:=<переменная>; Во Как называются действия, которые программа совершает над данными в процессе своего исполнения? Варианты ответов Функции Операторы Команды Переменные Во Как называют служебные слова, между которыми заключается программный блок? Варианты ответов Начало и конец Фигурные скобки Логические скобки Программные скобки Во Как называется оператор, который придаёт ячейке оперативной памяти, которой является переменная, определённое значение. Варианты ответов Условный оператор Оператор цикла Оператор присваивания Оператор подачи Во Какие из операторов присваивания не будет работать в программе с разделом описания переменных показанном на рисунке? Варианты ответов s:=n; str:=3; d:=n; n:=3, 5; Во Как называется текстовое сообщение, которое не учитывается при переводе программы в машинные коды? Во Установите соответствие между разделами программы и служебными словами с которых они начинаются. Варианты ответов Заголовок программы Раздел описания переменных Раздел описания констант Программный блок Во Укажите верные записи комментария на языке Pascal. Варианты ответов <комментарий> *комментарий* {комментарий} //комментарий
Ответы
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
Пример
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение
// Внимание! Если программа не работает, обновите версию!
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
Пример
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение
# Python 3.X
sym = {10: 'A', 11: 'B', 12: 'C', 13: 'D', 14: 'E', 15: 'F'}
def exp_in(n, g):
ret = 1
while n ** ret < g:
ret += 1
return ret - 1
def base(n, to_base):
''' 2 <= to_base <= 16 '''
if not 2 <= to_base <= 16:
raise ValueError('2 <= to_base <= 16')
ret = ''
for e in range(exp_in(to_base, n), -1, -1):
t = to_base ** e
c = n // t
ret += sym.get(c, str(c))
n %= t
return ret
n, b = [int(input(x)) for x in ['Число: ', 'Степень (2 <= n <= 16): ']]
print('{} (10) = {} ({})'.format(n, base(n, b), b))
sym = {10: 'A', 11: 'B', 12: 'C', 13: 'D', 14: 'E', 15: 'F'}
def exp_in(n, g):
ret = 1
while n ** ret < g:
ret += 1
return ret - 1
def base(n, to_base):
''' 2 <= to_base <= 16 '''
if not 2 <= to_base <= 16:
raise ValueError('2 <= to_base <= 16')
ret = ''
for e in range(exp_in(to_base, n), -1, -1):
t = to_base ** e
c = n // t
ret += sym.get(c, str(c))
n %= t
return ret
n, b = [int(input(x)) for x in ['Число: ', 'Степень (2 <= n <= 16): ']]
print('{} (10) = {} ({})'.format(n, base(n, b), b))
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сделать нужно так как я говорил
Автор: lazu8375
Решите и напишите подробное решение
Автор: T91610933073266
Как перед каждым словом вставить знак "?". язык программирования: с++ visual studio 2019
Автор: zoomagazinkotmatroskin
1) заголовок. блок используемых данных. блок операторов
2) заголовок
3) <переменная>:=<значение>
4) операторы
5) логические скобки
6) оператор присваивания
7) d:=n. n:=3,5. str:=3
8) комментарий
9) ?
10) {комментарий} //комментарий