Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры. Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var A,B:integer; f:Text; begin Assign(f,'input.txt'); Reset(f); readln(f,A,B); writeln('Размеры участка ',A,', ',B); if (A mod 2=0) or (B mod 2=0) then writeln('0') else writeln('1') end.
Результат решения: Размеры участка 8, 4 0
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Які із зазначених дій не є інформаційними процесами?. - зберігання- пошук- консервування- опрацювання- побудова
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var
A,B:integer;
f:Text;
begin
Assign(f,'input.txt');
Reset(f);
readln(f,A,B);
writeln('Размеры участка ',A,', ',B);
if (A mod 2=0) or (B mod 2=0) then writeln('0')
else writeln('1')
end.
Результат решения:
Размеры участка 8, 4
0