1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта. ответ: 4 челове... Подробнее

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед... Подробнее

(если сумма цифр числа делится на 3, то число делится на 3 нацело) var a, s: integer; begin s: =0; writeln ('введите число'); while a< > 0 do begin a: = a mod 10  ... Подробнее

и какая вероятность что пользователь не   program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin ... Подробнее

в феврале 1946 года был создан первый компьютер.... Подробнее

100010,011101=42,35   (вос. сис.) 10010,011101=22,1d   (шест. с.)     111 111 111 000 001=77701(в.с)   0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)  ... Подробнее

var n: integer; begin readln(n); case n mod 12 of 4: writeln('год крысы'); 5: writeln('год коровы'); 6: writeln('год тигра'); 7: writeln('год зайца'); 8: writeln('год дракона... Подробнее

линейный (следования) разветвляющийся (развилка) циклический  ... Подробнее

program xxx;     var i, k, d, e, s : integer; begin   k: =0;   for i: = 10 to 99 do     begin           d: = i div 10... Подробнее

какой графический редактор? paint? кажется что подразумевается не 7 виндоуз, потому поэксперементировать трудно   не знаю какое 3 заполнение там подразумевается - у меня па... Подробнее

var n,a: integer; begin readln(n); a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000; if n> a then writeln('число ', n, ' больше перевертыш... Подробнее

1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого.    ... Подробнее

почитай тут ... Подробнее

const   a: array[1..6]of longint=(7,4,10,6,5,3); var   i: longint; begin for i: =1 to 6 do  write(9.8*a[i]*1200,' '); writeln; end.  ... Подробнее

64*48*12*8=294,912- обьем в байтах 1 стр  ... Подробнее

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25; &nbs... Подробнее

954-459=495 все условия соблюдены... Подробнее

для того что было понятнее обозначим берег на котором солдаты "1", а второй берег "2".сначала через реку переплывают вдое мальчиков на берег 2, один остается другой возращается обр... Подробнее

var a: array[1..10, 1..10] of integer; i, j, s: integer; begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3);... Подробнее

нельзя, ведь текст отсканирован а не скопирован!... Подробнее