Укажите составные условия, истинные при a=5,b=7,c=0. 1) (a> b) or (b> sqr(a)) or (b> c) 2) (b> a) and (b> c) 3) not (a+b< 0) 4) (a mod 2 = 1) and (b mod 2 = 1)
1) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20); Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i] mod 3=0 then s:=s+1; end; Writeln('Сумма: ' ,s); END.
2) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20)-10; Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i]<0 then s:=s+1; end; If s=0 then Writeln('Нет отр. элементов!'); Writeln('Сумма отр. элементов: ' ,s); END.
1)var a,b,c:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); writeln('Введите возраст 3 друга'); readln(c); if (a>b) and (a>c) then writeln('Старшим является 1 друг') else if (b>a) and (b>c) then writeln('Старшим является 2 друг') else writeln('Старшим является 3 друг'); end. 2)var a,b:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); if a>b then writeln('Старшим является 1 друг') else writeln('Старшим является 2 друг'); end.
2. True
3. True
4. True