profile="http://gmpg.org/xfn/11"> Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль.

Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль.
Решение:

program Num3;

  {задачи на числа паскаль с решением}
  {Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль}
var
  i_Num1, i_Num2, i_Num3, i_Sum: integer;

begin
  i_Sum := 0;
  WriteLn('Введите первое число');
  ReadLn(i_Num1);
  WriteLn('Введите второе число');
  ReadLn(i_Num2);
  WriteLn('Введите третье число');
  ReadLn(i_Num3);
  if i_Num1 > 0 then
    Inc(i_Sum);
  if i_Num2 > 0 then
    Inc(i_Sum);
  if i_Num3 > 0 then
    Inc(i_Sum);
  WriteLn('Количество положительных чисел ', i_Sum);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль.
Даны три целых числа. Найти количество положительных чисел в исходном наборе, паскаль.

Комментарии запрещены.