Информатика, опубликовано 03.04.2020 16:26
Добавьте что-то к этой программе, чтоб она сортировала четыре числа в порядке убывания.
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a < b) then
begin
t := a;
a := b;
b := t;
end;
if (b < c) then
begin
t := b;
b := c;
c := t;
end;
if (a < b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
end.
Ответы
Ответ оставил: Гость
"swap(x,y)" эквивалентно следующему коду:
begin
t := x;
x := y;
y := t;
end;
Можно использовать функцию swap, чтобы не получалось слишком громоздко.
var a, b, c, d, t: integer;
begin
readln(a, b, c, d);
if (b>a) then swap(a,b);
if (c>a) then swap(c,a);
if (d>a) then swap(d,a);
if (c>b) then swap(c,b);
if (d>b) then swap(d,b);
if (d>c) then swap(d,c);
writeln(a, ' ', b, ' ', c, ' ', d);
end.
Ответ оставил: Гость
Состав:клюв,крылья,шерсть,плавники,лесная птица,домашняя птица.Всё остальное действия.
Ответ оставил: Гость
Рассматриваются значения массива с индексами от 1 до 8.Если его значение больше минус двух (-2), то прибавляем единицу (1) к переменной k, изначально равной нулю (0).
Просмотрим все значения (от 1 до 8):
R[1] = -12 > -2? Условие не выполняется, k остаётся прежним.
R[2] = -3 > -2? Условие не выполняется, k остаётся прежним.
R[3] = -5 > -2? Условие не выполняется, k остаётся прежним.
R[4] = -6 > -2? Условие не выполняется, k остаётся прежним.
R[5] = 4 > -2? Условие выполняется, k = k + 1 = 0 + 1 = 1
R[6] = 9 > -2? Условие выполняется, k = k + 1 = 1 + 1 = 2
R[7] = 0 > -2? Условие выполняется, k = k + 1 = 2 + 1 = 3
R[8] = 8 > -2? Условие выполняется, k = k + 1 = 3 + 1 = 4
Ответ: 4.
Ответ оставил: Гость
Candy camera , В612Вроде бы в этих програмах можно так наложить смайлы
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
