Паскаль! прошу, просто выражения напишите, я там сама оформлю : васе подарили набор разноцветных деревянных палочек. позже оказалось, что не которые из них были надломаны. как известно, у палочки есть несколько концов. сейчас вася держит в руках nпалочек. ему интересно узнать, сколько концов имеют эти палочки. : хулиганы первый и второй не любят доску почёта своей школы. поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками, и порвать на части. первый хулиган брал кусочек газеты и рвал его на 4 части, а второй хулиган – на 7. однако скоро дежурные нашли nкусочков этой газеты. им стало интересно, все ли кусочки они нашли. им. дежурные так старались, что упустить из виду они могли не более 2 кусочков. натуральное число n< 1018. выведите “yes”, если все кусочки найдены, и “no” – в противном случае.

181

392

Посмотреть ответы 2

Ответы на вопрос:

fylkis

Информатика

4,6(86 оценок)

1. var n, k: real; begin readln(n); if (n< 0) then k: = 0 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 конец

Соня8912

Информатика

4,4(35 оценок)

Pascal: var a,b: real; begin write ('a = '); readln (a); write ('b = '); readln (b); writeln ('summa: ',a+b); writeln ('raznost: ',a-b); writeln ('proizvedenie: ',a*b); if b=0 then writeln ('division by zero! ') else writeln ('chastnoe: ',a/b); readln; end. c++: #include < iostream> using namespace std; int main() { float a,b; cout < < "a = "; cin > > a; cout < < "b = "; cin > > b; cout < < "summa: " < < a+b < < endl < < "raznost: " < < a-b < < endl < < "proizvedenie: " < < a*b < < endl; if (b==0) cout < < "division by zero! "; else cout < < "chastnoe: " < < a/b < < endl; }