Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
Разделить монеты на пополам, взвесить, какая сторона легче ту опять разделить напополам и взвесить и повторять пока не найдете фальшивую монету
Далее Я пишу причину и следствие.
Зима: людям нужно согреться - чай покупают чаще. Пирожные - с чаем обычно едят десерт, с чипсами то же самое, соответственно покупают чаще. Сок - не популярен, потому-что сок помогает освежится - альтернатива воде, зимой человек потеет меньше - меньше хочет пить.
Весна: Уже тепло - чай не особо нужен, активность людей поднимается - сок покупают чаще, Пирожные и чипсы - чай покупают меньше - сладкое покупают реже, Мороженое - все еще прохладно - охлаждать за счет мороженого не нужно.
Лето - Сок покупают чуть реже, потому-что в продаже появился лимонад, Пирожные и Чипсы - покупают чаще, потому-что активность выросла - нужна еда для восполнения энергии, Мороженое-Жара - нужно охлаждаться.
Осень: Чай - снова покупают, потому что стало холодней, Сок и Лимонад - активность снизилась, но все еще присутствует, Пирожные и Чипсы - нужны для восполнения оставшейся активности + к чаю, Мороженое - еще ~тепло и активность - нужно охлаждаться, но уже меньше, чем летом.
1000/12=83,(3);
83*12=996(через 996 месяцев пройдет ровно 83 года и будет снова Декабрь);
+ 4 месяца (т.к. 1000-996=4);
Декабрь -> Январь(1) -> Февраль(2) -> Март(3) -> Апрель(4);
Через 1000 месяцев (начиная с 15 декабря) будет 15 Апреля.