Держи! В файле прикрепил или на скриншоте смотри :)
маршрутов (1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3)
Var
str : string;
i, num : integer;
begin
readln(str);
num := 0;
for i := 1 to length(str) do
if str[i] in ['0'..'9'] then
num := num + 1;
writeln(num);
end.
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
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