3 ноября, 14:45

Напишите программы, для Паскаля.

1. Дано число Х. Определить положительное число или отрицательное.

2. Даны три целых числа. Определить количество положительных чисел.

3. Дано число Х. Определить чётное число или нечётное.

+1
Ответы (2)
  1. 3 ноября, 15:02
    0
    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.

    Пример:

    125

    125 - нечётное
  2. 3 ноября, 16:40
    0
    Program task1;

    var n: real;

    begin:

    read (n) ;

    if n > 0 then

    writeln ('Положительное') ;

    if n < 0 then

    write ('Отрицательное') ;

    end.

    programm task2;

    var a, b, c, positives: integer;

    begin:

    if a > 0 then

    positives:=positives+1;

    if b > 0 then

    positives:=positives+1;

    if c > 0 then

    positives:=positives+1;

    writeln ('Положительных: ', positives) ;

    end.

    program task3;

    var n: integer;

    begin:

    read (n) ;

    if (n mod 2) > 0 then

    writeln ('Не чётное') ;

    else

    writeln ('Чётное') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напишите программы, для Паскаля. 1. Дано число Х. Определить положительное число или отрицательное. 2. Даны три целых числа. Определить ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы