Program red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
Далее Я пишу причину и следствие.
Зима: людям нужно согреться - чай покупают чаще. Пирожные - с чаем обычно едят десерт, с чипсами то же самое, соответственно покупают чаще. Сок - не популярен, потому-что сок помогает освежится - альтернатива воде, зимой человек потеет меньше - меньше хочет пить.
Весна: Уже тепло - чай не особо нужен, активность людей поднимается - сок покупают чаще, Пирожные и чипсы - чай покупают меньше - сладкое покупают реже, Мороженое - все еще прохладно - охлаждать за счет мороженого не нужно.
Лето - Сок покупают чуть реже, потому-что в продаже появился лимонад, Пирожные и Чипсы - покупают чаще, потому-что активность выросла - нужна еда для восполнения энергии, Мороженое-Жара - нужно охлаждаться.
Осень: Чай - снова покупают, потому что стало холодней, Сок и Лимонад - активность снизилась, но все еще присутствует, Пирожные и Чипсы - нужны для восполнения оставшейся активности + к чаю, Мороженое - еще ~тепло и активность - нужно охлаждаться, но уже меньше, чем летом.