Решаем задачи Абрамян на Паскале. If 4

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

program If4;
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);
end.

program If4;

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);

end.

Другие задачи из раздела If можно посмотреть здесь.

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

Console.WriteLine("Введите 3 числа");
            int number_0 = Convert.ToInt32(Console.ReadLine());
            int number_1 = Convert.ToInt32(Console.ReadLine());
            int number_2 = Convert.ToInt32(Console.ReadLine());

            int res = 0;

            if (number_0 > 0)
            {
                ++res;
            }
            if (number_1 > 0)
            {
                ++res;
            }
            if (number_2 > 0)
            {
                ++res;
            }
            Console.WriteLine("Количество чисел > 0 - {0}", res);

Console.WriteLine("Введите 3 числа");

int number_0 = Convert.ToInt32(Console.ReadLine());

int number_1 = Convert.ToInt32(Console.ReadLine());

int number_2 = Convert.ToInt32(Console.ReadLine());

int res = 0;

if (number_0 > 0)

{

++res;

}

if (number_1 > 0)

{

++res;

}

if (number_2 > 0)

{

++res;

}

Console.WriteLine("Количество чисел > 0 - {0}", res);

Ответить

Решаем задачи Абрамян на Паскале. If 4

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

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

Добавить комментарий Отменить ответ