Паскаль! прошу, просто выражения напишите, я там сама оформлю : васе подарили набор разноцветных деревянных палочек. позже оказалось, что не которые из них были надломаны. как известно, у палочки есть несколько концов. сейчас вася держит в руках nпалочек. ему интересно узнать, сколько концов имеют эти палочки. : хулиганы первый и второй не любят доску почёта своей школы. поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками, и порвать на части. первый хулиган брал кусочек газеты и рвал его на 4 части, а второй хулиган – на 7. однако скоро дежурные нашли nкусочков этой газеты. им стало интересно, все ли кусочки они нашли. им. дежурные так старались, что упустить из виду они могли не более 2 кусочков. натуральное число n< 1018. выведите “yes”, если все кусочки найдены, и “no” – в противном случае.
Ответы
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 конец
Выведет ⦁2 2 3 2 сначала переменная а=1 и b =2 вызов процедуры p(a,b) к а добавит 1 и а станет = 2, перед b в заголовке процедуры не стоит var, поэтому данная переменная является параметром-значением и передается по значению, т.е. значение у b всегда остается 2. после writeln(a,’ ‘,b); на экране выведется 2 2повторный вызов процедуры p(a,b) к а добавит 1 и а станет = 3, а значение b при выводе вне процедуры по-прежнему останется 2получим : 3 2
Блок-схема - в прилагаемом файле. программа: #include < iostream> #include < stdlib.h> using namespace std; int main() { const int n = 20; int a[n]; int k1=0; int k2=0; int k3=0; srand(time(0)); for (int i = 0; i < n; i++) { a[i]=rand() % 3 +1; cout < < a[i] < < " "; } cout < < "\n"; for (int i = 0; i < n; i++){ switch(a[i]){ case 1: k1++; break; case 2: k2++; break; case 3: k3++; break; } } cout < < "k1 = " < < k1 < < " k2 = " < < k2 < < " k3 = " < < k3 < < "\n"; return 0; } пример: 2 1 2 1 2 1 3 3 2 3 1 3 1 2 3 2 1 3 3 3 k1 = 6 k2 = 6 k3 = 8
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
При работе на компьютере Какой должен быть перерыв
Автор: zybin41iz81
Запиши развёрнутую запись числа 0, 636 для дробной части числа.
Автор: terehin863
Как на паскаль abc нарисоввть лодку с парусом?
Автор: natkuv7
Информатика;Дәптерге Videopad редакторының құралдарын жазамыз
Автор: ismailovi670771