Var a,b,c,n: integer; begin writeln ('vvedi a,b,c'); readln(a,b,c); n:=0; if a<0 then n:=n+1; if b<0 then n:=n+1; if c<0 then n:=n+1; if n<>0 then writeln ('среди трех чисел ',n,' отрицательных') else writeln ('среди трех чисел нет отрицательных') end.
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 god:=2008; if ((god mod 60)>=4)and((god mod 60)<16) then write('Зелено'); if ((god mod 60)>=16)and((god mod 60)<28) then write('Красно'); if (god mod 60>=28)and((god mod 60)<40) then write('Желто'); if (god mod 60>=40)and((god mod 60)<52) then write('Бело'); if ((god mod 60)>=52)or((god mod 60)<4) then write('Черно'); f:=((god mod 60) mod 12); case f of 4: write('й крысы'); 5: write('й коровы'); 6: write('го тигра'); 7: write('го зайца'); 8: write('го дракона'); 9: write('й змеи'); 10: write('й лошади'); 11: write('й овцы'); 0: write('й обезьяны'); 1: write('й курицы'); 2: write('й собаки'); 3: write('й свиньи'); end;
Что такое бит?Если говорить по-простому, то бит - это единица информации. Может принимать два значения - в информатике это "1" или "0". "Истина" или "Ложь". "True" or "False". В электронике "1" и "0" отличаются величиной напряжения. Так по величине напряжения любое устройство может понять "1" ему прислали или "0".Итак:Бит может принимать значения: 1 или 0Что же такое байт1?Это величина информации равная 8 битам. Т.е. 1 байт это 8 последовательных "1" или "0" (битов). Например:000000011010101011111010И т.п... Так "1" и "0" можно переставлять местами 256 различными И байт может принимать 28 = 256 различных значений.
a,b,c,n: integer;
begin
writeln ('vvedi a,b,c');
readln(a,b,c);
n:=0;
if a<0 then n:=n+1;
if b<0 then n:=n+1;
if c<0 then n:=n+1;
if n<>0 then writeln ('среди трех чисел ',n,' отрицательных')
else
writeln ('среди трех чисел нет отрицательных')
end.