Question

Запиши те программу прошу С клавиатуры вводятся возраста трех человек: Светланы, Карины, Марины. Вывести возраст старшей, имя средней, возраст младшей из девочек.Записать условия

Answer 1

Var a,b,c:integer;
begin
writeln('Введите возраст Светланы: ');
readln(a);
writeln('Введите возраст Карины: ');
readln(b);
writeln('Введите возраст Марины: ');
readln(c);
if ((a>b) and (a>c)) then writeln('Светлана: ', a)
else if ((b>c) and (b>a)) then writeln('Карина: ', b)
else if ((c>a) and (c>b)) then writeln('Марина: ', c);
if ((a>c) and (c>b)) then writeln('Марина: ', c)
else if((c>b) and (b>a)) then writeln('Карина: ', b)
else if ((b>a) and (a>c)) then writeln('Светлана: ', a);
if ((a<b) and (a<c)) then writeln('Светлана: ', a)
else if ((b<a) and (b<c)) then writeln('Карина: ', b)
else if ((c<a) and (c<b)) then writeln('Марина: ', c);
end.