14*8= 112мин, (14+2 = 16 машин стало), 112:16= 7 мин
Если ещё надо и разберёшь почерк)))
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
Если по программе 1-4 класс, то ответ курсор. Буква Р- 18 по счету
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.