Блок-схема - в прилагаемом файле.
var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.
Задание выполнено в <span> MS Excel 2013.
</span>Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой (нужно записывать в конце выражения).
Формула:
"=ОКРУГЛ((53+168)-2*(70/(3+14));2)" Её нужно вписать в окошко Excel<span> и выбрать ячейку куда вставить ответ далее нажать "Enter".
</span>
Формулы является РЕШЕНИЕМ данного вопроса, далее скриншот и файл Excel.
Число:
212,7647059
Ответ:
Округлённое число:
212,76
Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
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);
<span>end.</span></span>