ПОМОГИТЕ! ЗАДАЧА ПАСКАЛЬ!ПРОШУ, ПРОСТО ВЫРАЖЕНИЯ НАПИШИТЕ, Я ТАМ САМА...

Question

ПОМОГИТЕ! ЗАДАЧА ПАСКАЛЬ!
ПРОШУ, ПРОСТО ВЫРАЖЕНИЯ НАПИШИТЕ, Я ТАМ САМА ОФОРМЛЮ

ЗАДАЧА1:
Васе подарили набор разноцветных деревянных палочек. Позже оказалось, что не которые из них были надломаны.

Как известно, у палочки есть несколько концов. Сейчас Вася держит в руках Nпалочек. Ему интересно узнать, сколько концов имеют эти палочки.

ЗАДАЧА2:

Хулиганы Первый и Второй очень не любят доску почёта своей школы. Поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками, и порвать на части. Первый хулиган брал кусочек газеты и рвал его на 4 части, а Второй хулиган – на 7. Однако очень скоро дежурные нашли Nкусочков этой газеты. Им стало интересно, все ли кусочки они нашли. Помогите им.

Дежурные так старались, что упустить из виду они могли не более 2 кусочков.

Натуральное число N< 1018.

Выведите “Yes”, если все кусочки найдены, и “No” – в противном случае.

Answer 1

1. var N, k: real; 

begin 

readln(N); 

if (N<0) then k:= 0 </span>
else 

begin 
if (frac(N)=0) then k:=N*2 
else k:=(trunc(N)+1)*2; 
end; 

writeln(k); 

end.

2. Первый хулиган увеличивал количество кусочков на 3 
Второй - на 6 
То есть, всего кусочков должно быть N = 1 + 3m + 6n 
Значит, N - 1 должно делиться на 3 
и наоборот, если N - 1 делится на 3 
N - 1 = 3k 
то возможна ситуация, когда Первый хулиган рвал k раз, 
а Второй наблюдал (ничего не рвал). 
Алгоритм свёлся к проверке: 
Если N -1 не делится на 3, то No 
КОНЕЦ

Comments

она не все тесты проходит

---

напишите код программы №2

---

подробнее