Доставка товара на дом, заказанного в фирме «грива и хвост», стоит 700 рублей в пределах города москва. доставка за пределы горо- да стоит 700 рублей и 100 рублей за каждые дополнительные 10 км пу- ти. если в доме лифт не работает, то к стоимости доставки прибавляет- ся стоимость подъёма на этаж. так, подъем стоит 400 рублей при усло- вии, если квартира находится на этаже не выше пятого. если квартира расположена между пятым и десятым этажами, подъем стоит 400 руб- лей и по 150 рублей дополнительно за каждый этаж выше пятого. если же подъем необходим на десятый этаж или выше, то весь подъем обой- дётся в 1500 рублей. в фирме было сделано четыре заказа с доставкой в города одинцо- во, голицыно, москва и зеленоград с подъёмом товара на 3, 4, 12 и 7 этаж соответственно, при этом известно, что во всех домах, кроме дома по первому заказу лифт не функционирует. расстояние до одинцово, голицыно и зеленограда от москвы равны соответственно 10 км, 30 км и 20 км. с электронной таблицы вычислите: 1) полную стоимости доставки для каждого заказа. 2) номер заказа, стоимость доставки которого максимальна. ответ в отдельной ячейке.
Свойства объекта определяются некоторыми величинами, показывающими отличие одного объекта от другого.
Действия показывают что может делать объект или что можно делать с объектом.
Поведение - это подробное описание каждого из действий объекта.
Состояние - это полный набор свойств, которые имеет объект в данное время.
Получается, что состояние перечисляет свойства, а поведение объясняет, что из себя представляют действия.
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
if sum > b then
begin
Writeln('Верно');
halt;
end;
end;
Writeln('Неверно');
end.
Пример:
1234 2
Верно
2)
var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.
Результат:
376 625
3)
var
i,n : integer;
function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
if n mod i = 0 then
break;
Simple := n mod i <> 0;
end;
begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
if n mod i = 0 then
if (Simple(i))and(Simple(n div i)) then
begin
Writeln('YES');
halt;
end;
Writeln('NO');
end.
Пример:
33
YES