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

помогите решить пожалуйста

  1. Ответ
    Ответ дан OLOLOlaLO
    Программа написана на языке Pascal

    program z1;
    var a,b:integer;
    begin
    writeln('Введите 1 число');
    readln(a);
    writeln('Введите 2 число');
    readln(b);
    if ((b-a=2) and (b mod 2=1) and (a mod 2=1)) or ((a-b=2) and (b mod 2=1) and (a mod 2=1))
    then write('Введенные числа близнецы')
    else write('Введенные числа не близнецы');
    end.
Самые новые вопросы