1.Локальные переменные – это а) Переменные написанные строчными буквами; б) Переменные написанные заглавными буквами; в) Переменные описанные внутри подпрограммы; г) Переменные имеющие LOCAL 2.Что такое подпрограмма а) Это часть программы, оформленная в виде отдельной конструкции и снабженная именем б) Любая часть программы в) Верхняя часть программы г) Часть программы от начала до слова BEGIN 3.Где описываются программы а) В любом месте программы б) В начале программы до оператора BEGIN в) В конце программы г) После оператора BEGIN 4.В чем отличие процедуры от функции при описании а) У функции должен обязательно быть указан ее тип б) У процедуры должен обязательно быть указан ее тип в) Работа с разными типами переменных г) Отличий нет 5.При описании процедуры ей соответствует оператор… а) PROCEDURE б) PROCEDURA в) PROCEDYRE г) PROSCEDURE
Ответы
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Https://studfile.net/preview/5118162/page:6/
Автор: teregorka1977205
Какое количество информации несёт код 10001000111? подробное решение
Автор: Kharkina1328
Придумать исполнителя который вместо человека может создать алгоритм. ! ♡♡♡♡
Автор: Kalugin Vyacheslavovna605
Каким образом можно загрузить операционную симтему(перезагрузить компьютер)
Автор: Yurevich1701
Каким будет результат выполнения следующего кода: some = [1, 9, 21, 10, 16] 21 in some
Автор: Abdulganieva1367
Кескін мен анимацияның қандай айырмашылығы бар?
Автор: xachen
//PascalABC v3.1
var s: string;
procedure repAll(var s: string; wOld, wNew: string);
var res: string;
p, len: integer;
begin
len:= Length(wOld);
res:= '';
while Length(s) > 0 do begin
p:= Pos(wOld, s);
if p = 0 then begin res:= res + s; break; end;
if p > 1 then res:= res + Copy(s,1,p-1);
res:= res + wNew;
if p+len > Length(s) then
s:= ''
else s:= Copy(s,p+len,Length(s));
end;
s:= res
end;
begin
readln(s);
repAll(s, 'СО', 'ТУ');
writeln(s)
end.
Тестовое решение:
СОК СОК СОК КОК ПОК
ТУК ТУК ТУК КОК ПОК