Информатика, вопрос задал ZverAlex , 10 лет назад

Решать в PascalABC Это ОЧЕНЬ срочно!!!

Приложения:

Ответы на вопрос

Ответил HRAshton
0
var x, y: integer;
begin
     readln(x, y);
     if (frac(x / 2) = 0) and (frac(y / 2) = 0) then writeln('Не виден. Закрывает гвоздь ', x/2, ';', y / 2)
        else writeln('Виден');
end.

Это 3
Новые вопросы