Преимущества ACTIVpen A) Создает новый абзац, определяет цвет использованной гипертекстовой ссылки
В) Кнопка в периферии-аналог правой кнопки мыши, кончик ручки-аналог левой кнопки мыши
С) Дает название первого уровня
D) Определяет цвет фона
Е) Беспроводная, не требует батареек
x,y:integer;
vcp,dx,dy:real;
begin
Write('Возраст Тани='); Read(x);
Write('Возраст Мити='); Read(y);
vcp:=(x+y)/2;
dx:=x-vcp; dy:=y-vcp;
Writeln('Средний возраст равен ',vcp);
if dx>0 then begin
Writeln('Таня старше среднего возраста на ',dx,' лет,');
Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
end
else
if dx=0 then Writeln('Таня и Митя ровесники')
else begin
Writeln('Таня младше среднего возраста на ',-dx,' лет,');
Writeln('а Митя старше среднего возраста на ',dy,' лет.')
end
end.
Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.