
Вопрос задан 04.04.2019 в 01:16.
Предмет Информатика.
Спрашивает Стрельцова Снежана.
Возраст Тани - X лет, а возраст Мити - Y лет. Найти их средний возраст, а также определить,
насколько отличается возраст каждого ребенка от среднего значения.

Ответы на вопрос

Отвечает Уманец Елена.
Средний возраст (x+y)/2
возраст тани отличается |(x+y)/2-x|
возраст мити отличается|(x+y)/2-y|
главное про модул не забудь, а то может быть возраст с минусом)
возраст тани отличается |(x+y)/2-x|
возраст мити отличается|(x+y)/2-y|
главное про модул не забудь, а то может быть возраст с минусом)



Отвечает Гордин Егор.
Var
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 лет.
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 лет.


Топ вопросов за вчера в категории Информатика

Информатика 566

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

Информатика 23
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili