Комментарии 9

• если переменных всего три, то можно так:
  Res1:=0;
  if N1>0 then Inc(Res1);
  if N2>0 then Inc(Res1);
  if N3>0 then Inc(Res1);
  Writeln (‘Кол-во положительных чисел: ‘,Res1);
  Writeln (‘Кол-во отрицательных чисел: ‘, 3-Res1);
  то есть поубирать else ветку, а при желании и переменную Res2

  Ответить

  • Да, согласен. Так более локанично.
    Было:

    program If5; var N1, N2, N3, Res1, Res2 : Integer; begin Write('Введите перовое целое число: '); Readln(N1); Write('Введите второе целое число: '); Readln(N2); Write('Введите третье целое число: '); Readln(N3); Res1:=0; Res2:=0; if N1>0 then Inc(Res1) else Inc(Res2); if N2>0 then Inc(Res1) else Inc(Res2); if N3>0 then Inc(Res1) else Inc(Res2); Writeln ('Кол-во положительных чисел: ',Res1); Writeln ('Кол-во отрицательных чисел: ',Res2); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

    program If5; var   N1, N2, N3, Res1, Res2 : Integer; begin   Write('Введите перовое целое число: ');   Readln(N1);   Write('Введите второе целое число: ');   Readln(N2);   Write('Введите третье целое число: ');   Readln(N3);   Res1:=0;   Res2:=0;   if N1>0 then Inc(Res1)   else Inc(Res2);   if N2>0 then Inc(Res1)   else Inc(Res2);   if N3>0 then Inc(Res1)   else Inc(Res2);   Writeln ('Кол-во положительных чисел: ',Res1);   Writeln ('Кол-во отрицательных чисел: ',Res2); end.

    Стало:

    program If5; var N1, N2, N3, Res : Integer; begin Write('Введите перовое целое число: '); Readln(N1); Write('Введите второе целое число: '); Readln(N2); Write('Введите третье целое число: '); Readln(N3); Res:=0; if N1>0 then Inc(Res); if N2>0 then Inc(Res); if N3>0 then Inc(Res); Writeln ('Кол-во положительных чисел: ',Res); Writeln ('Кол-во отрицательных чисел: ',3-Res); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

    program If5; var   N1, N2, N3, Res : Integer; begin   Write('Введите перовое целое число: ');   Readln(N1);   Write('Введите второе целое число: ');   Readln(N2);   Write('Введите третье целое число: ');   Readln(N3);   Res:=0;   if N1>0 then Inc(Res);   if N2>0 then Inc(Res);   if N3>0 then Inc(Res);   Writeln ('Кол-во положительных чисел: ',Res);   Writeln ('Кол-во отрицательных чисел: ',3-Res); end.

    Ответить

    • Очень хочется цикл… но слишком мало целых чисел 🙁

      program If5; Const Num=3; var Res,i,N : Integer; begin for i:=1 to Num do begin Write('Введите ',i,' целое число: '); Readln(N); if N>0 then Inc(Res); end; Writeln ('Кол-во положительных чисел: ',Res); Writeln ('Кол-во отрицательных чисел: ',Num-Res); end.

      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

      program If5; Const   Num=3; var   Res,i,N : Integer; begin for i:=1 to Num do   begin     Write('Введите ',i,' целое число: ');     Readln(N);     if N>0 then Inc(Res);   end;   Writeln ('Кол-во положительных чисел: ',Res);   Writeln ('Кол-во отрицательных чисел: ',Num-Res); end.

      Ответить

      • Здесь я забыл про 0.

        Ответить

• Чтобы работало с нулем, считать отдельно отриц. и полож. числа:

  [crayon-673e1fded2750803750348 inline="true" ] program If5; var N1, N2, N3, Pos, Neg : Integer; begin Write('Введите перовое целое число: '); Readln(N1); Write('Введите второе целое число: '); Readln(N2); Write('Введите третье целое число: '); Readln(N3); Pos:=0; Neg:=0; if N1>0 then Inc(Pos) else if N10 then Inc(Pos) else if N20 then Inc(Pos) else if N3<0 then Inc(Neg); Writeln ('Кол-во положительных чисел: ',Pos); Writeln ('Кол-во отрицательных чисел: ',Neg); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

  [crayon-673e1fded2750803750348 inline="true" ] program If5; var   N1, N2, N3, Pos, Neg : Integer; begin   Write('Введите перовое целое число: ');   Readln(N1);   Write('Введите второе целое число: ');   Readln(N2);   Write('Введите третье целое число: ');   Readln(N3);   Pos:=0; Neg:=0;   if N1>0 then Inc(Pos) else if N10 then Inc(Pos) else if N20 then Inc(Pos) else if N3<0 then Inc(Neg);   Writeln ('Кол-во положительных чисел: ',Pos);   Writeln ('Кол-во отрицательных чисел: ',Neg); end.

  [/crayon]

  Ответить

  • строки 12-14 должны были заканчиваться так

    ...else if N1<0 then Inc(Neg); ...else if N2<0 then Inc(Neg); ...else if N3<0 then Inc(Neg);

    1 2 3

    ...else if N1<0 then Inc(Neg);   ...else if N2<0 then Inc(Neg);   ...else if N3<0 then Inc(Neg);

    Ответить

    • Если я правильно понял идею:
      Было:

      program If5; var N1, N2, N3, Res : Integer; begin Write('Введите перовое целое число: '); Readln(N1); Write('Введите второе целое число: '); Readln(N2); Write('Введите третье целое число: '); Readln(N3); Res:=0; if N1>0 then Inc(Res); if N2>0 then Inc(Res); if N3>0 then Inc(Res); Writeln ('Кол-во положительных чисел: ',Res); Writeln ('Кол-во отрицательных чисел: ',3-Res); end.

      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

      program If5; var   N1, N2, N3, Res : Integer; begin   Write('Введите перовое целое число: ');   Readln(N1);   Write('Введите второе целое число: ');   Readln(N2);   Write('Введите третье целое число: ');   Readln(N3);   Res:=0;   if N1>0 then Inc(Res);   if N2>0 then Inc(Res);   if N3>0 then Inc(Res);   Writeln ('Кол-во положительных чисел: ',Res);   Writeln ('Кол-во отрицательных чисел: ',3-Res); end.

      Стало:

      program If5; var N1, N2, N3, Res1, Res2 : Integer; begin Write('Введите перовое целое число: '); Readln(N1); Write('Введите второе целое число: '); Readln(N2); Write('Введите третье целое число: '); Readln(N3); Res1:=0; Res2:=0; if N1>0 then Inc(Res1) else if N1<0 then Inc(Res2); if N2>0 then Inc(Res1) else if N2<0 then Inc(Res2); if N3>0 then Inc(Res1) else else if N3<0 then Inc(Res2); Writeln ('Кол-во положительных чисел: ',Res1); Writeln ('Кол-во отрицательных чисел: ',Res2); end.

      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

      program If5; var   N1, N2, N3, Res1, Res2 : Integer; begin   Write('Введите перовое целое число: ');   Readln(N1);   Write('Введите второе целое число: ');   Readln(N2);   Write('Введите третье целое число: ');   Readln(N3);   Res1:=0;   Res2:=0;   if N1>0 then Inc(Res1)   else if N1<0 then Inc(Res2);   if N2>0 then Inc(Res1)   else if N2<0 then Inc(Res2);   if N3>0 then Inc(Res1)   else else if N3<0 then Inc(Res2);   Writeln ('Кол-во положительных чисел: ',Res1);   Writeln ('Кол-во отрицательных чисел: ',Res2); end.

      Ответить

• у меня получилось так:

  var a, b, c, plus, minus: integer;
  begin
  write(‘Введите три целых числа: ‘);
  readln(a, b, c);
  if a > 0 then Inc(plus) else if a 0 then Inc(plus) else if b 0 then Inc(plus) else if c<0 then Inc(minus);
  writeln('Количество положительных чисел — ', plus);
  writeln('Количество отрицательных чисел — ', minus);
  end.

  Ответить