Var
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно
Основание системы смотрите по наибольшей цифре в числе
1. 8
2. 10
3. 2
6. 9
ну к примеру возмем пример такой: человек читает книгу. источник в данном случае является книга, так как читаем мы ее и она дает знания. Так? так. приемник является человек, так как он принимает книжные знания. например, ученик ищет информацию для реферата в интернете*. приемник- человек, а источник кто? неужто компьютер? нет здесь источник интернет, так как дает информацию интернет!!!
1 весит - 8 битов
вот и всё это просто
Ответа на вопрос не последовало. Поэтому привожу решение в пакете Maple 15 (см. вложение)
А экстремумов у этой функции нет...