Ответ:
var max,n:integer;
c,nom:byte;
begin
max:=-1000;
for c:=1 to 4 do
begin
writeln('Введите число под номером ', c );
readln(n);
if n>max then begin
max:=n;
nom:=c;
end;
end;
writeln('Максимальное число из введенных - 'max);
end.
Объяснение:
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
Потому что архивторы работают не со всеми типами файлов
S = input('Какое расстояние до дачи в километрах?: ')
B = input('Какое количество бензина в литрах, которое потребляет автомобиль на 100 километров пробега?: ')
C = input('Какая цена одного литра бензина?: ')
Price = (int(S) / 100) * int(B) * int(C)
print(Price)