Var money, cost,summa : real;
count : integer;
tovar: string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); writeln('Сколько денег даете? ');
readln(money);
if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
<span>end.</span>
Если не ошибаюсь,то так))
Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
5600байт
а по другому 5 гб 600гг ответ буква а
N =
<span>= 16 этажей.
</span>события равновероятны, т.к. номера этажей не повторяются.