profile
Опубликовано 6 лет назад по предмету Информатика от ddnd

СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЬ

Определите делится ли модуль разности введеных чисел на 2​

  1. Ответ
    Ответ дан vadimnemansky

    Program zadanie;

    var a,b,c: integer;

    begin

    write('Введите два числа: ');

    readln(a,b);

    c:=abs(a-b);

    if c mod 2=0 then wtiteln('Число ',с, ' четное')

    else writeln('Число ',с, ' нечетное');

    readln;

    end.

Самые новые вопросы