а) uses crt; var c,d: integer; s: real; beginwrite('введите число с: '); readln(c); write('введите число d: '); readln(d); s: =(power(c,3)+power(d,3))/2; writeln('полусумма кубов равна ',s: 5: 3); end.б) uses crt; var a,x1,x2,x3,x4,s: integer; beginwrite('введите четырёхзначное число: '); readln(a); x1: =a div 1000; x2: = a-1000*x1; x2: =x2 div 100; x3: =a-1000*x1-100*x2; x3: =x3 div 10; x4: =a-1000*x1-100*x2-10*x3; s: =x1*x2*x3*x4; writeln('произведение всех цифр в числе ',a,' равно ',s); end.
ответ:
каждый должен взять 3 карточки, необходимо выбрать ведущего, который будет перемешывать и доставать из мешочка бочонки. когда ведущий достатет из мешочка бочонок, он должен громко сказть номер написанный на бочонке, а игроки должный найти у себя на одной ищ карточке этот же номер. и кто первее крикнет "у меня! ", тот и забирает бочонок, а остальные у кого был этот номер прикрывают его картонкой. выигрывает тот; кто быстрее всех закроет все номера.
если ииграете на деньги, то после каждого заполненного вертикального ряда кричите "дом! " и каждый дрбавляет в ставку по 5 или больше рублей(это уже зависит от масштаба и количества игроков)
5: B - бор, число протонов (порядковый номер) 5 и число нейтронов 6, потому 11-5 = 6.
13: Al - алюминий, число протонов (порядковый номер) 13 и число нейтронов 14, потому что 27-13 = 14.
19: К - калий, число протонов (порядковый номер) 19 и число нейтронов 20, потому что 39-19 = 20.
II вариант
7: N - азот, число протонов (порядковый номер) 7 и число нейтронов 7, потому 14-7 = 7
9: F - фтор, число протонов (порядковый номер) 9 и число нейтронов 10, потому 19-9 = 10.
18: Ar - аргон, число протонов (порядковый номер) 18 и число нейтронов 22, потому что 40-18 = 22 .