Var a: array[1..1000] of integer; i: integer; chet: integer; nechet: integer; begin i: =1; randomize; while (i< =1000) do begin a[i] : = random(10); if( a[i] mod 2 = 0) then chet: =chet+1 else nechet: = nechet + 1; i : = i + 1; end; writeln('четных чисел: ',chet,' ','нечетных чисел: ' ,nechet) end.
Dmitrii1763
18.07.2020
Program p452; var a,b,m,d: integer; begin write('введите размеры форточки (а,b) в см: '); read(a,b); write('введите диаметр головы васи в см: '); read(d); if a< b then m: =a+2 else m: =b+2; { +2 - это зазор по 1 см с обоих сторон } if d< =m then writeln('голова проходит') else writeln('голова не проходит') end. тестовое решение: введите размеры форточки (а,b) в см: 25 40 введите диаметр головы васи в см: 23 голова проходит program p453; var a,b,c,x,y,m1,m2,n1,n2: integer; begin write('введите размеры кирпича в см (a,b,c): '); read(a,b,c); write('введите размеры отверстия в см (x,y): '); read(x,y); if a< b then if a< c then begin m1: =a; if b< c then m2: =b else m2: =c end else begin m1: =c; m2: =a end else if b< c then begin m1: =b; if a< c then m2: =a else m2: =c end else begin m1: =c; m2: =b end; if x< y then begin n1: =x; n2: =y end else begin n1: =y; n2: =x end; if (m1< =n1) and (m2< =n2) then writeln('кирпич пройдет в отверстие') else writeln('кирпич не пройдет в отверстие') end. тестовое решение: введите размеры кирпича в см (a,b,c): 10 4 12 введите размеры отверстия в см (x,y): 5 9 кирпич не пройдет в отверстие program p454; var a,b: integer; begin write('введите значения а и b: '); read(a,b); writeln('размеры чемодана ',3*a,'x',2*a,'x',a); writeln('размеры коробки ',3*b,'x',2*b,'x',b); if b< a then writeln('коробка поместится в чемодан') else writeln('коробка не поместится в чемодан') end. тестовое решение: введите значения а и b: 18 16 размеры чемодана 54x36x18 размеры коробки 48x32x16 коробка поместится в чемодан
варианты 1 и 2 не нужно выделять