Агроном- специалист в области агрономии. брейк - а. быстрое и резкое падение цен. б. денежная, торговая , при которой дебет не равен кредиту или имеет место значительное дебетовое или кредитовое сальдо. видеоклип- (от . clip - стричь - обрывать) , телевизионнаяхудожественная интерпретация эстрадной, поп- или рок-песни, как правило, сприменением ""дробного"" монтажа и специальных эффектов. распространениесвязано с появлением в 80-х гг. 20 в. кабельных музыкальных телеканалов ирынка бытовой видеоаппаратуры и видеокассет. используется в т. ч. врекламных целях. дюйм- 1. единица длины в системе мер равная 1/28 аршина (в российском государстве до 1918 г.) . 2. единица длины в системе мер, равная 1/12 фута (2,54 см) . жалюзи- многостворчатые ставни или шторы из узких пластинок, связанных между собой, применяемые для регулирования светового и воздушного потока. - промысловая морская рыба плоской формы с глазами на одной стороне головы. мультипликация- 1. киносъемка последовательных фаз движения рисованных или объемных фигур, в результате которой при показе на экране у зрителя создается иллюзия их движения. // объект такой съемки. 2. разг. фильм, сделанный посредством такой съемки. пастила- кондитерское изделие тестообразного вида из протертых, сваренных с сахаром фруктов (обычно сбиваемых с яичным белком) . универсальный- - 1. охватывающий всё или многое; всеобъемлющий. 2. разными знаниями, навыками; разносторонний. 3. выполняющий разнообразные функции.
goldservicepro
01.10.2021
Var i, a, k, sum : integer; begin k: =0; for i: =100 to 999 do begin sum: =0; a: =i; while a> 0 do begin sum: =sum+(a mod 10); a: =a div 10; end; if sum mod 5 = 0 then begin inc(k); write(i: 5); end; end; writeln; writeln('количество чисел: ', k); end.
skzzkt
01.10.2021
Program zz; var a,z,z1,z2,z3,z4,z5,z6,z7,z8,x: integer; begin readln(a); while a> 0 do begin x: =a mod 10; if x=1 then z: =z+1; if x=2 then z1: =z+1; if x=3 then z2: =z2+1; if x=4 then z3: =z3+1; if x=5 then z4: =z4+1; if x=6 then z5: =z5+1; if x=7 then z6: =z6+1; if x=8 then z7: =z7+1; if x=9 then z8: =z8+1; a: =a div 10; end; if (z> 1) or (z1> 1) or (z2> 1) or (z3> 1) or(z4> 1) or (z5> 1) or (z6> 1) or (z7> 1) or (z8> 1) then writeln('yes') else writeln('no'); end.