1. var x:integer; begin readln(x); if x>0 then writeln(x,' - положительное') else if x<0 then writeln(x,' - отрицательное') else writeln(x,' = 0'); end.
Пример: -125 -125 - отрицательное
2. var x,y,z,k:integer; begin readln(x,y,z); if x>0 then k:=k+1; if y>0 then k:=k+1; if z>0 then k:=k+1; writeln('количество положительных чисел = ',k); end.
Пример: -125 84 67 количество положительных чисел = 2
3. var x:integer; begin readln(x); if x mod 2=0 then writeln(x,' - чётное') else writeln(x,' - нечётное'); end.
это в шк так задают???
Объяснение:
3,2 GHя
Phenom
Overclock есть
Soket AM3
HyperTransport Bus