Запиши те программу прошу С клавиатуры вводятся возраста трех человек: Светланы, Карины, Марины. Вывести возраст старшей, имя средней, возраст младшей из девочек.Записать условия
Запиши те программу прошу С клавиатуры вводятся возраста трех человек: Светланы, Карины, Марины. Вывести возраст старшей, имя средней, возраст младшей из девочек.Записать условия
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы