Решать в 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
begin
readln(x, y);
if (frac(x / 2) = 0) and (frac(y / 2) = 0) then writeln('Не виден. Закрывает гвоздь ', x/2, ';', y / 2)
else writeln('Виден');
end.
Это 3
Новые вопросы