Поделитесь своими знаниями, ответьте на вопрос:
Да или нет 1.использование модулей повышает модульность программ. 2.модуль является текстовым файлом. 3.пространство имён состоит из идентификаторов. 4.точечная нотация универсальное средство адресации в информатике. 5.программистам редко бывает нужно определять свои собственные функции. 6.количество вызовов функции в программе ограничено. 7.переменные, определённые в функции, являются локальными. 8.не следует определять новые функции в работающей программе. 9.одной из причин использования функций является уменьшение дублирования текста программы. 10. передавать параметры в функцию можно по ссылке и по значению. 11. всякая функция в питоне что-то возвращает. (пустое множество не в счет.) 12. рекомендуется передавать данные в функцию через параметры. 13. функции в питоне никогда не изменяют передаваемые параметры, в отличие от других языков программирования. 14. при отладке пустая функция может состоять из одного заголовка.
n = 4;
Spring = [3..5];{ Номера весенних месяцев }
var
ds: array[1..n] of string;
i, d, m, y, dmax, mmax, ymax, k: integer;
s, s1: string;
begin
Writeln('Вводите даты в формате "день месяц год" через пробел');
k := 0; dmax := 0; mmax := 0; ymax := 0;
for i := 1 to n do
begin
Write(i, ': ');
Readln(d, m, y);
if (m in Spring) then
begin
k := k + 1;
Str(d, s);
Str(m, s1); s := ' ' + s + '.' + s1 + '.';
Str(y, s1);
ds[k] := s + s1
end;
if ymax < y then begin dmax := d; mmax := m; ymax := y end
else if ymax = y then
if mmax < m then begin dmax := d; mmax := m; ymax := y end
else if dmax < d then begin dmax := d; mmax := m; ymax := y end
end;
Writeln;
if k > 0 then
begin
Write('Весенние даты:');
for i := 1 to k do Write(ds[i]);
Writeln;
end;
Writeln('Самая поздняя дата ', dmax, '.', mmax, '.', ymax)
end.
Тестовое решение:
Вводите даты в формате "день месяц год" через пробел
1: 25 8 2010
2: 3 4 2013
3: 18 5 2011
4: 31 12 2012
Весенние даты: 3.4.2013 18.5.2011
Самая поздняя дата 3.4.2013