Какие части программы являются обязательными в среде кумир? выберите несколько вариантов ответа: надо 1 ключевое слово алг 2 название алгоритма 3 тело алгоритма 4 ключевое слово кон 5 дано 6 ключевое слово нач 7 комментарии
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList; if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля') else if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной') else begin var d3:=L.Where(x->x.IsEven).Min; L.RemoveAt(L.FindIndex(x->x=d3)); var s:=L.OrderBy(x->x); Writeln(s.Last,s.First,d3) end end.
Примеры: Введите через пробел три цифры 2 0 5 520
Введите через пробел три цифры 0 5 0 500
Введите через пробел три цифры 3 9 5 Хотя бы одна цифра должна быть четной
Дискретные сигналы (они же цифровые) - принимают конечное число значений функции: примеры дискр: - энергетические уровни атома, - сигналы светофора - символы, слова... и т. д. и т. п. непрерывный (он же аналоговый) - принимает бесконечное количество значений функции, амлитуда и время которого меняются непрерывно. примеры непрерывных: - звуковая волна, - диаграмма изменения влажности, напряжения, и других некоторых физических величин
для преобразования непрерывного сигнала в дискретные производят дискретизацию. Процесс дискретизации сопровождается потерей информации если частота дискретизации в 2 раза меньше максимальной частоты непрерывного сигнала по теореме Найквиста... В России эту теорему называют Котельникова
// Внимание! Если программа не работает, обновите версию!
begin
var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
else
if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
else begin
var d3:=L.Where(x->x.IsEven).Min;
L.RemoveAt(L.FindIndex(x->x=d3));
var s:=L.OrderBy(x->x);
Writeln(s.Last,s.First,d3)
end
end.
Примеры:
Введите через пробел три цифры 2 0 5
520
Введите через пробел три цифры 0 5 0
500
Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной